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Preface 


Every good book begins with a bit of historical 
perspective, as does this one, although it does not 
necessarily follow that this is a good book. How- 
ever, the phenomenal success of 1001 Things To Do 
With Your Personal Computer, with over 100,000 
copies in print, indicates a need for the information 
it has provided. Since the time of publication of the 
first book, nothing short of a revolution has taken 
place. Personal computers have joined the Ameri- 
can love affair with the television and automobile 
and now occupy a coveted spot in more than five 


million homes. Many of the applications in my first 
book are now commercially- available programs; 
the home computer software market now includes 
some 50,000 entries, a bewildering assortment of 
programs for those from every walk of life. 

The continued unawareness of the large 
number of applications a personal computer can be 
used for has prompted me to prepare this expanded 
second book, which 1s fully updated and includes 
many new BASIC programs and ideas. 
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Introduction 


‘What can it do for me?” This is probably one of the 
most common yet subtly annoying questions asked 
by the would-be customer of the personal computer 
salesman, sometimes leaving him speechless. It 1s 
a difficult question, to be sure. It’s certainly much 
easier and lucrative to expound on the advantages of 
this computer versus that one “because it has 64K.” 
Enter this book —a unique, comprehensive guide to 
the marvelous (yet scarcely explored elsewhere) 
home computer applications that in the words of the 
media, “will greatly change the way you live and 
work.” It’s not just a “how-to-do-it” book, but a 
“what to do” book; over 1000 different imaginative 
ideas are presented and explained herein on the 
premise that one idea spawns another. 

Not only the salesman, but the personal com- 
puter manufacturers themselves are often insecure 
about just what can be done with their product. The 
standard, meager manual on BASIC and perhaps a 
few sample programs come with their computer, 
but little of reassurance about applications is in- 
cluded, leaving the buyer in a quandary. Something 
is missing from the whole brave new world he had 
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breathlessly imagined. No, the video display, 
keyboard,cables, papers, and other paraphernalia 1s 
probably all there and functional. It’s the applica- 
tions that are missing. You didn’t buy a computer as 
a conversation piece, to keep up with the Joneses, 
or because it had 64K; you bought it as a gadget of 
the future, an appliance of the mind, the ultimate 
game machine, an adult pacifier, or a business part- 
ner; you got it to save the world from another 
computer illiterate, or you wanted it to save 
something—be it time, effort, headaches, or 
money. 

There is good news. Among the seemingly 
endless numbers of personal computing books 
available today, this book remains a unique 
browser's catalog of potential applications for your 
computer. Allow it to spawn, identify, and ‘tailor 
new uses for your system and to serve as an 
operator's manual for the appliance that is your 
mind. It provides the background you need to be- 
come more adept, more versatile, and more crea- 
tive in using your computer's problem-solving 
capabilities. As an idea book, it will stimulate your 


own creativity, helping you stretch your own limits 
and those of your system; the usefulness of your 
computer will be limited only by your ingenuity. I 
venture to say that virtually all the uses to which 
personal computers are being put today are dis- 
cussed briefly or illustrated within this cookbook, 
save the pate de foie de volaille, that 1s, the more 
restricted, specialized uses (although there are 
many of those inside, too). 

Lest I be accused of exaggeration, I'll amend 
the above claim to “virtually almost all of the appli- 
cations . . .”’ and invite readers to send in their 
latest mousetrap, regardless of whether or not the 
world is beating a path to their door. 


This book should appeal to anyone interested 
in or owning a microcomputer—on three levels. 
The skeptical buyer may use it in deciding whether 
the possible applications will justify the cost of a 
computer,or he may use it to decide between vari- 
ous brands of computers on the basis of the software 
available for a listed application. The person in- 
terested in using computers but not in pro- 
gramming can use this book as a source of applica- 
tions that may warrant further investigation, or he 
can type in the many BASIC programs for his 
computer included within. The advanced personal 
computer user has the opportunity to sharpen his 
programming skills using the many useful, in- 
teresting, and often challenging program sugges- 
tions found throughout the book or to develop com- 
mercial software for the burgeoning microcomputer 
market. 


Your computer 1s an extension of your mind, a 
mind apphance. Use it to do complex calculations 
you would not have previously done manually (for 
example, the amateur or professional photographer 
may calculate more precise values for camera set- 
tings to achieve a certain effect). Examples of sim- 
ple formulas are presented herein and are intended 
to be part of larger, more complex programs to be 
written for your own personal application. In some 
cases, due to space regulations, the advanced 
reader 1s left to find the information necessary to 
write a program based on an idea given; all infor- 
mation should be readily available at a local library. 
In other cases, the program itself or the formulas 


and methods necessary to write the program are 
provided to illustrate an idea and set you on the 
right track. Analyze and adapt the program within; 
learn to write an applied program. 

Some of the program ideas are intended not 
only for microcomputers, but for programmable 
calculators as well. Although anyone who has pro- 
grammed a calculator will realize the tremendous 
advantages of a microcomputer system, the pro- 
grammable calculator does have its place. For those 
applications where portability 1s important (for 
example, marine navigation), the calculator comes 
in handy. 

Promises, promises—that’s all you can hear 
from the alluring ads and articles guarantying 
countless wonders from a personal computer at the 
tap ofakey. Everything from tending your garden to 
filling out form 1040 has been claimed as a time- or 
cost-justifying excuse to buy acomputer. Yet these 
applications are often genuinely easier, faster, or 
cheaper to do by hand. This had led to the claim by 
newspaper and magazine critics that computers are 
not the common man’s electronic panacea and are, 
at best, toys for the man who has everything, the 
computer hacker, the math whiz, or the gadget 
freak. There is a bit of truth to this assertion. It’s 
certainly possible that you don’t need a personal 
computer at all (skip ahead if you’ve already taken 
the plunge.) The time-honored means of managing a 
household—typewriter, file folders, index cards, 
address book, checkbook, bulletin board—can 
often perform Just as well as or better than their 
computerized equivalents. It’s senseless to pa- 
tiently spend 15 minutes loading and reloading 
programs, referencing commands, and remember- 
ing keywords, only to eventually call up your 
spouse's birthday. Likewise, it wouldn’t be practi- 
cal to use a $2000 computer for the purpose of 
computing your automotive miles per gallon or to 
store a couple dozen recipes; miles per gallon can 
easily computed in your head; index cards are much 
better for storing a typical small collection of re- 
cipes and can be thumbed with wet or sticky hands. 
A checkbook can be carried along and filled out on 
the spot —not an easy match for a home computer. 

“But,” you say, “I see some of those applica- 
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tions listed in this book,” and you may have the urge 
to fold, spindle, or mutilate this page. The answer 
to this seeming contradiction is that these applica- 
tions are practical uses of a computer for some 
people. For instance, if you rana delivery service, a 
miles per gallon calculating program that included 
Statistical analysis for each truck and driver could 
be useful in improving efficiency. If you happen to 
be a professional chef or gourmet cook, you might 
need a computer program that could automatically 
organize hundreds of recipes and even calculate the 
amount of each ingredient necessary for a given 
number of people. Using a computer to balance a 
checkbook would be a case of electronic overkill. 
However, a program fed with your financial data on 
a regular basis could serve as your personal ac- 
countant, giving youa rundown on clothing costs for 
each individual family member, a comparison of 
monthly utility bills, and a complete year-end list of 
tax-deductible expenditures—and yes, your bank 
balance. 

Impractical programs thus become practical in 
specialized applications, as interesting, educational 
examples of programming, and as idea stimulators 
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for better applications. Therefore they are included 
in this book, but with a warning that they can often 
be considerably more time and effort consuming 
than the old-fashioned way. 

It is when the size of your project or hobby 
becomes large enough that computing can offer so- 
lutions. The typewriter is a simple, easy tool for 
creating short memos; the word processor be- 
comes useful in preparing 100 page theses. When 
your application demands many mathematical cal- 
culations, it’s important to consider computing 
power. However, to many hobbyists, the writing of 
a program, whether or not it has any real value, is an 
end in itself. To them, the computer is the most 
enticing combination crossword puzzle, chess 
game, Rubik’s cube, and balsa-wood airplane kit yet 
devised. 

Within these pages you can discover and 
exploit the virtually boundless potential inherent in 
your personal computer. Move ahead of the times, 
extend your reach, open up new avenues of per- 
sonal growth, enjoy! It is my intention to help you 
expand your horizons and to answer the paramount 
question, “What can it do for me?” 
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Applications for Everyone 


In this increasingly complex world, a personal com- 
puter 1s most useful in organizing and simplifying 
the minutia of everyday life. In this chapter you will 
find an eclectic collection of applications for 
everyone, each designed to streamline daily life. 


PERSONAL REFERENCE SOURCE 


Reference information that is often referred to 
but too complex to memorize could be stored for 
instant retrieval. Possibilities are endless, but 
examples of charts, tables, and lists that have been 
stored in personal computers include 


1. Calories and nutritional content of selected 
foods. 

2. Appointment itinerary. 

3. Important articles and books (stored by author, 
title, topic, and date). 

A. Sports statistics, amateur or professional. 

o. Product sources, specifications, and prices 
from various suppliers for comparison. 

6. Names, addresses, and phone numbers. 


& 
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. Ham Radio log of contacts, 


Stock market data including name, symbol, 
Shares, price, and historical data. 

Recipes and shopping lists. 

Postal and shipping rates, requirements, and 
regulations for the businessman. 

Metric conversions and information. 


. Time differences and phone rates between 


cities. 

Words commonly misspelled or misused (as a 
quick reference for writers). 

locations, and 
times. 

Collection inventory, including name of item, 
age, values, and identifying information. 
Private pilot flight planning data. 

Household inventory for insurance and finan- 
cial purposes. 


. Astronomical and astrological data. 
. Things to be done, ordered, or checked with 


times available and deadlines. 
Fishing log. 
Quotations by topic and source. 


21. References from literature, the Bible, and so 
on. 

22. Dates of birthdays, anniversaries, and other 
Special occasions. 

23. Automotive service information, especially for 
business car fleets. 

24. Patient laboratory data over time, differential 
diagnoses, or drugs for physicians. 

25. Credit cards, with numbers to call in the event 
of theft. 

26. Safety deposit box contents. 

27. Physical contents, chemical data, formulae. 

28. Emergency phone numbers. 

29. Poison antidotes. 

30. Computer software/hardware comparisons. 

31. Cumulative weather data. 

32. Abbreviations. 

33. Wine information for the the connoisseur. 

34. Horse racing statistics. 

35. Anecdotal material for those obliged to make 
Speeches. 

36. Insurance policy inventory including coverage, 


cost, account numbers, and deductibles for 
house, car, health, and other kinds of insur- 
ance. 


This list isn’t exhaustive, and only a few of 
these applications may be of use to you, but it 
serves to illustrate the multiple possibilities 
primarily involving the storage of information. How 
would you store this information? Use the Elec- 
tronic Memorandum program, Listing 1-1, or the 
Data Base Demonstratiwn program, Listing 1-14, 
for your own tailor-made application. 


THE ELECTRONIC MEMORANDUM PROGRAM 

In Listing 1-1 you will find a program that 
should be useful to everyone; think of it as a mem- 
ory extension. The program allows you to store any 
type of information (household, business, financial) 
under a “keyword” for instant retrieval at a later 
date. For instance, if you had an appointment on a 
certain date, the pertinent information could be 
stored under the keyword “9/11/85;” on that date 
you would simply type “9/11/85” to receive a 
printout of all appointments or reminders stored 
under that keyword. Likewise, a reminder for an 
annual occasion could be entered under a keyword 
specifying only the month and day. Keywords may 
be dates or words such as “MARKS BIRTHDAY.” 
Telephone numbers, business contacts, important 
dates, and many other bulletin-board type scraps of 
information could be stored so that they could not 
be forgotten or misplaced. This information could 
include the number and expiration date of your 
driver’s license, the serial numbers of credit cards 
(and who to notify if they are lost), expense account 
information, information about insurance policies, 
warranty information on all appliances, names and 
addresses of dealers, magazine subscription dates, 
handy home repair tips (for example, the size of the 
alr conditioner filter), lock combinations, special 
codes, the method of resetting a digital watch, 
Christmas gifts and to whom they were given, 
eyeglass prescription, and so on ad infinitum. Ad- 
ditionally, information may be stored under more 
than one keyword to ensure ability to retrieve it. 

This program is designed for use with a cas- 
sette. It could be changed for use with floppy disks. 
The program requires 6.3K of memory. 


Listing 1-1: The Electronic Memorandum Program. 


10 PRINTCHR$(147)TAB(50)""ELECTRONIC MEMORANDUM" 

20 CLR: PRINT: DIM A$C100),B$( 100) ,C$(100) ,D$( 100) ,E$( 100) : FL=0: D=0 
25 PRINT" INSERT SEPARATE CASSETTE FOR DATA FILE" 

27 PRINT'REWIND DATA TAPE;PRESS RETURN '";:INPUT"WHEN READY"; A$ 


30 
32 PRINT“ FIRST TIME: TPIS USED. 


PRINT’ THIS PROGRAM MUST BE INITIALIZED THE" 
DO YOU NEED TO" 


33 INPUT’ INITIALIZE (Y/N)"s3A$: TF A$<>"Y" THEN 35 
34 GOSUB 8000: INPUT" REWIND DATA TAPF, PRESS RETURN ";A$ 


35 


OPEN 1,1: INPUT#1,Z:1IF Z=0O THEN FL=1:GOTO 40 


IF Z>=95 THEN PRINT "FIVE RECORDS BEFORE FILE IS FULL" 
FORA=O TO Z:INPUT#1,B$(A):IF B$(A)="END" THEN GOTO 40 


INPUT#1,C$(CA):IF C$(A)="END"THEN GOTO 40 
NEXT 

PRINT"SELECT AN OPTION:": PRINT 

CLOSE: lisa 
PRINT"COMMAND" , "FUNCTION" : PRINT 


PRINT" INPUT" ,"INPUT A NEW ITEM" 
PRINT"CAT","PRINT LIST OF COMMON ENTRIES" 
PRINT’ FIND" ,"FIND A PREVIOUSLY STORED ITEM" 
PRINT"REDO" ,"EDIT A PREVIOUSLY STORED ITEM" 
PRINT"DEL", "DELETE AN ITEM" 

PRINT"END","END PROGRAM AND SAVE FILE" 

INPUT A$ 

IF A$="INPUT" THEN 1000 

TF ASS CAT” THEN 3000 

IF A$="FIND" THEN 4000 

IF A$="REDO" THEN 2000 

IF A$="DEL" THEN 5000 

IF A$="END" THEN 7000 

PRINT" ILLEGAL COMMAND--PLEASE ENTER ONE OF " 
PRINT'THE FOLLOWING:" 
GOTO 50 

PRINT"ENTER A KEYWORD (MAY BE UP TO 20 ':INPUT'LETTERS LONG";B$(A) 
O IF LEN(B$(A))>20 THEN 1000 


1020 PRINT’ENTER THE DATA FOR THIS KEYWORD (MAY BE UP TO "; 


5 PRINT"75 CHARACTERS LONG": INPUTC$(A) 
PRINT" IS THIS CORRECT CY/N)?";C$(A):INPUT A$:IF A$<>"Y" THEN 1020 


1050 INPUT"ENTER ANOTHERCY/N)"'3A$ 
1060 IF A$="N' THEN 1080 


O A=A+l 
1 IF A-D<100 THEN 1000 
2 IF A-D=100 THEN PRINT'LAST ITEM THIS FILE" 


1074 IF A-D>=100 THEN PRINT" FILE FULL ERROR":PRINT'CLOSING FILE" 


6 PRINT'RE-RUN PROGRAM, INITIALIZING A NEW SEC- TION OF DATA TAPE" 


1078 GOTO 1000 

1080 GOTO 40 

2000 PRINT"ENTER THE KEYWORD FOR THE DATA TO BE" 
2010 INPUT'EDITED" ; B$ 

2020 FORQ=0 TO A 

2030 IF LEFT$(B$(Q),LEN(CB$))<>B$ THEN 2110 

2040 PRINTCHR$(147) 

2050 PRINT''MEMORANDUM" 

2060 PRINTC$(Q):PRINT 


O INPUT"DO YOU WISH TO EDIT THIS ITEM(Y/N)"';A$ 
O IF A$="N" THEN 2110 

O INPUT’RE-ENTER ALL DATA";C$(Q) 

O PRINT"IS THIS CORRECT (Y/N)?";C$(Q):INPUT A$ 


5 IF A$<>"Y" THEN PRINT"MUST BE NO LONGER THAN 75 LETTERS':GOTO 2090 


7 INPUT"ENTER ANOTHER (Y/N)"3A$:IF A$<>"Y" THEN 2120 

QO NEXT Q 

O PRINT’FILE END':GOTO 40 

O PRINI'SELECT: 1)LIST A CATALOG OF ALL ITEMS" 

5 PRINT" 2)LIST ALL ITEMS WITH COMMON KEYWORD" 
7 INPUT Y 

0 ON Y GOTO 3300, 3020 


O INPUT"ENTER THE KEYWORD";H$ 


3040 
3050 
3060 
3070 
3080 
3090 
3100 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
6000 
6010 
6020 
6030 
6040 
6045 
6050 
6060 
7000 
7005 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 


PRINT'NUMBER", "KEYWORD": N=1 

FOR Q=0 TO A 

IF LEFT$(B$(Q),LENCH$) )<>H$ THEN 3090 

PRINT N,B$(Q) 

N=N+1:I1F INT(N/11)=N/11 THEN INPUT "MORE--PRESS RETURN"3A$ 


PRN atts oe ge eet "sPRINT:GOTO 40 
PRINTCHR$(147) 

PRINT"NUMBER", "KEYWORD": N=1 

FOR R=65 TO 90 

FORQ=0 TO A 

IF LEFT$(B$(Q),1)<>CHR$(R) THEN 3360 

PRINT N,B$(Q):N=N+1:IF INT(N/11)=N/11 THEN INPUT'MORE--PRESS RETURN"; A$ 
NEXT Q,R 

GOTO 40 

PRINTCHR$( 147) 

INPUT "ENTER KEYWORD" ;B$ 

N=1 

FORQ=0 TO A 

IF LEFT$(B$(Q) ,LEN(B$))<>B$ THEN 4080 

PRINT" KEYWORD: ":B$(Q) : PRINT 

PRINT TAB(5)C$(Q):PRINT 

N=N+1:IF INT(N/3)=N/3 THEN INPUT"MORE--PRESS RETURN"; A$ 
NEXT Q 

GOTO 40 

PRINTCHR$(147) 

INPUT"ENTER THE KEYWORD"; B$ 

FORQ=0 TO A 

IF LEFT$(B$(Q) ,LEN(B$))<>B$ THEN 5090 
PRINTCHR$(147)"KEYWORD" ;B$(Q) : PRINT 
PRINTC$(Q):PRINT 

INPUT"DO YOU WISH TO DELETE THIS RECORD(Y/N)":A$ 
IF A$<>"Y" THEN 5090 

B$(Q)="":C$(Q)="": D=D+1 

NEXT Q 

GOTO 40 

INPUT"REWIND DATA TAPE,PRESS RETURN"; A$ 

OPEN 1,1,2,'MEMORANDUM" 

PRINT#1, (A-D) 

FORQ=0 TO A: IF B$(Q)=""THEN 6050 
PRINT#1,B$(Q) sCHR$(32) 

PRINT#1 ,C$(Q) 

NEXT Q:PRINT#1, "END" 


CLOSE 1:END 
PRINT"SORTING...'":FORQ=1 TO A 
D$(Q)=B$(Q) :E$(Q)=C$(Q) 


A$(Q)=D$(Q) 

NEXT Q 

K=0 

Q=1 

FOR J=2 TO A 

IF A$(Q)<A$(J) THEN 7080 
Q=J 

NEXT J 

A$(Q)="ZZZ" 

K=K+1 
B$(K)=D$(Q) :C$(K )=E$(Q) 


7120 IF K=A+1 THEN 7140 

7130 GOTO 7040 

7140 GOTO 6000 

8000 REM INITIALIZE ROUTINE 
8002 Ags!" 

8005 OPEN 1,1,2,''MEMORANDUM" 
8010 PRINT#1,0;A$;A$ 

8020 CLOSE 1:RETURN 


AN INDEX TO YOUR LIBRARY D, 6/84, I, 5; 
How often do you remember reading an 1m- a cael Hy ehhme— YS 

portant article or chapter, yet you can’t remember volume date category category 

the name or date of the magazine or book? A per- no. #1 #2 

sonal computer can easily organize and cross- 

reference your books and articles for instant re- 1, Smith 

trieval using only the name, subject, author, or \ ; \ ) 

other parameter to retrieve the entries you are storage author 

interested in. With the wealth of personal computer location 

magazines available, an index to pertinent articles 

will ease the difficulty of finding that special patch If data is formatted on disk in a manner similar 

or program. to this example, disk commands will allow the com- 


A program to accomplish indexing could store puter to search through a selected field to find all 
information regarding items as a continuous string entries with a given field. For example, the user 
of data, each string being composed of several could specify a search for all entries having an 
“fields,” and each field separated by acomma. An author named “Smith.” The computer would then 
example of a string with fields describing a search through the entire disk file examining all the 


magazine article could be as follows: fields containing author’s names (the last field in the 
The Stock Market, Business Today, above example) and printing all those with “Smith” 
as the author. The disk commands used the above 

name of article/book name of magazine/book format are shown in Listing 1-2. 


Listing 1-2: The Random Access Sample Routine. 


1Q REM OPEN A RELATIVE FILE HAMED “FILE” 

J OREM ls S. 05° 0RPEM 2.6.3. "8° 000R. Lo +CHR Es Seo 

REM FORMAT FIELD LEMGTHS WITH Se FOR ARTICLE HAME. SE FOR MAGAZINE HAME, 
REM 2 FOR VOLUME HO... & FOR DATE. 1 FOR CATEGORY #1. 1 FOR CATEGORY 2. 
REM 1 FOR STORAGE LOCATION AMD le FOR AUTHOR MAME 

RESTORE CATH 1. MAME. 1. MAGAZINE. 1. VOL. 1) DATE. 1. CATEGOR :? #1 

DATA 1 CATEGORY #2.1.00CATIOM. 1. AUTHOR 

REM SET FILE COUMTER TO 1 TO BEGIHM AT BEGIHHIWG OF FILE 

G=1 GOTO Leh 

REM IF REAL EMD OF PILE« THEM EMD SEARICA 

TF BSS THEM PRIMT#e. 1 GOTO Sea 

REM IHCREMEHWT FILE COUMTER 


os 


Rett bt eee ee ee ED) oo om oO Lo 
BIR RIPI Re a |) APR Oo ow 


Het] 
REM READ THE HEMT ENTRY 
WISH OMZ]O TF RLEESG THEM BZ=INTON1 S86) MLSH1~CeSeS2 3 


FOR C=1 TO FREAD AAFC Co PRIMTHL. UP UCHR ES! SCHR ECHL OCHRE Ae CHR EAS 
THRFUTHE. 2EODo MER T U2 

REM Is THE AUTHOR "SMITH"? TF SO. PRINT OUT THAT EMT REY 

TF cise" SMITH" THEM FOR C=] TO S- PRINT AECDos 2 ECCS HET 


Wm) 7a mi cy ma 


REM ITMCREMEMT COUP TER 


aseklL ESA: GOTO Se 
CLOSE2 :CLOSE1:REM CONTINUE PROGRAM FROM HERE... 


Likewise, the computer could examine more 
than one field to limit the search to more specific 
entries. As an example, you could request a list of 
all articles published after 1980 concerning the 
stock market. The computer would search both the 
category and date fields for data meeting these 
requirements. A listing of all the information con- 
cerning each item would be outputted at the conclu- 
sion of the search. Floppy disks or high-speed ran- 
dom access cassettes are best-suited for this appli- 
cation. 


WORD PROCESSING 


Pencil and paper have never been the ideal 
servants of the mind. Paper refuses to accept in- 
stant changes at the whim of the writer. Instead, the 
writer must resort to erasing, Inserting, cutting, 
and pasting. 

But no longer are we restricted to pencil and 
paper. Word-processing programs can allow rear- 
rangement of words at the touch of a finger; era- 
sures are of the past. Correction fluid has likewise 
been replaced by the DELETE key. Word proces- 
sors give you the ability to write spontaneously. 
Whereas most people try to edit their words before 
committing them to paper, the advent of word pro- 
cessors allows you to type as you think, and later 
rearrange words, sentences, and paragraphs in a 
painless fashion. Thus, the writer can make his 
ideas concrete by displaying them on the video 
screen and later concern himself with the gram- 
matical aspects, before printing out a manuscript. 
Many writers feel that this enhances their creativ- 
ity and makes writing easier and more enjoyable. 

After your manuscript, letters, or documents 
are corrected on the video screen, you may assign 
various codes determining page widths, page 
lengths, page numbering, margins, and so on; the 
printer will reproduce the document perfectly, as 
you have specified. You can then edit the document 
and print 1t out again, without having to devote time 
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and effort to retyping it. Additionally, this informa- 
tion can be stored on a floppy disk for later review 
and retrieval. 

Anyone who writes professionally or com- 
poses a letter each day, should investigate the use 
of a word processor. Most are very easy to use and 
can be tremendous time, labor, and money savers. 
Many experts consider this application one of the 
most useful for personal computer owners. 

With most word processors you can: 
¢ Block Move. This feature lets you move pieces of 
your text—from a word to several paragraphs— 
around like blocks. You can also delete a block at 
whatever point you designate, and the rest of the 
text will fill in the “hole.” Or, conversely, you 
can add new blocks at any point. Think of a word 
processor as a food processor of writing, capable 
of slicing, chopping, and dicing the language with 
ease. 
e Word Wrap. As you type on a word processor you 
can forget hitting the carriage return key at the 
end of each line, as the computer automatically 
puts as many words as possible on one line and 
then starts a new one. This, in computerese, 1s 
called word wrap. 
Search and Replace. You can instruct the word- 
processor program to search the entire text or a 
portion of it for the occurrence of a particular 
word or phrase. Suppose you would like to cor- 
rect a misspelled name throughout a six page 
letter: just type in the name as you misspelled it 
and again as spelled correctly; the program will 
automatically correct this error throughout the 
text. The search command may also be used to 
rapidly locate a section in a large manuscript. 


e Typeover. When you want to substitute one word 
or phrase for another, you can type your change 
right over the existing text, and the unwanted 
letters will vanish as the new ones appear to fill 
their places. 

e Justify. Some programs will automatically adjust 
the spacing between words or letters so that each 


line can be printed out at the same length. This 
process is called right justification. Left justifica- 
tion simply means that the lines are aligned at the 
left margin as usual, although some programs can 
create special effects by aligning text only at the 
right margin or by centering all text. 


These are the most basic features found on 
word processing programs. Many other special 
features come with certain word-processing pac- 
kages. For example, amouse can be used to position 
the cursor at any point on the screen to facilitate 
editing. An automatic directory program can check 
the spelling of each word you write against its 
vocabulary and make corrections. An automatic 
thesaurus program can, at your command, display 
five to ten synonyms for thousands of common En- 
glish words. Other programs are designed to cor- 
rect faulty grammar—for those who don’t mind 
having a computerized English teacher—or allow 
you to design type fonts and integrate graphs and 
pictures with your text. Several typesetting firms 
will also accept word processor output directly via 


model or floppy disk for instant, money-saving 
typesetting jobs. 


LETTER WRITING 

A specialized text editor, designed to edit and 
format your letters, could expedite the process 
considerably. For example, if you are writing a 
business letter, the address of the recipient could 
be stored when it is typed at the beginning of the 
letter and later recalled to print the envelope. If you 
are writing the same letter to several people, the 
body could be stored in the computer. You need 
type only the addresses and other personalized in- 
formation, and this information would be inte- 
grated with the text to form a complete letter. 
Additionally, the editing features of a word proces- 
sor facilitate the correction of mistakes while you 
are entering the body of the letter or the per- 
sonalized information. A mailing list program can 
be integrated with such a program to automatically 
produce personalized letters. A program to prepare 
a personalized form letter 1s presented in Listing 
1-3. 


Listing 1-3: The Specialized Word-Processor Program 


10 PRINTCHR$(147)TAB(45)"SPECIALIZED WORD PROCESSOR": PRINT 


15 PRINTTAB(50)"WRITES LETTERS" 
Z0°CUR 

30 DIM A$(500) 

40 INPUT"ENTER THE DATE";D$ 

50 INPUT"ENTER RECIPIENTS' NAME";D1$ 


60 PRINT'ENTER COMPANY NAME OR TITLE (PRESS" 


65 INPUT"RETURN IF NONE)"';C$ 
70 INPUT"ENTER STREET ADDRESS";N1$ 


80 INPUT"ENTER TOWN STATE ZIP AS ONE STRING";T1$ 
90 PRINT'ENTER NAME FOR LETTER ADDRESS (E.G." 


95 INPUT’DEAR ----)"'';A1$ 


400 PRINT"ENTER SUCCESSIVE LINES FOR THE BODY." 


PRINT" ITF YOU MAKE AN ERROR ON A LINE AND " 


410 PRINT"WOULD LIKE TO CORRECT IT ENTER '#'" 


420 PRINT"AS ANY OTHER LINE" 


430 PRINT"ENTER 'END' TO PRINT OUT A COPY" 


440 FOR X=1 TO 500 


445 PRINT" #":X 

447 INPUT A$(X) 

450 IF LEFT$(A$(X),1)="#" THEN 800 
460 IF A$(X)="END" THEN 480 


470 NEXT X:X=X-1 


INPUT"PRESS RETURN WHEN READY";A$ 


PRINT" AND THE NUMBER OF THE LINE (E.G. #5)" 


PRINT: PRINT'READY THE PRINTER TO OUTPUT LETTER" 


485 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
h22 
724 
726 
730 
740 
745 
TO 
760 
LA0 
800 
810 
820 
825 
830 
840 
850 
860 
870 
872 
874 
876 
878 
880 
882 
885 
890 
895 
900 
910 
920 
930 
935 


OPEN 129,4,7,"LETTER":CMD 129 
PRINT: PRINT: PRINT: PRINT 

PRINT TAB(30)D$ 

READ N$,A$,T$,A2$ 

PRINT TAB(30)A$ 

PRINT TAB(30)A2$ 

PRINT: PRINT 

PRINT TAB(5)D1$ 

IF C$<>""" THEN PRINT TAB(5)C$ 

PRINT TAB(5)N1$ 

PRINT TAB(5)T1$ 

PRINT: PRINT 

PRINT TAB(5)"DEAR "sA1$;3"3" 

PRINT 

FOR B=l TO X-1 

PRINT TAB(5)A$(B) 

NEXT B 

C=23+B 

PRINT 

PRINT 

PRINT TAB(30)"CORDIALLY ," 

PRINT 

PRINT 

PRINT TAB(30)N$ 

IF A$<>"X" THEN PRINT TAB(30)A$ 
PRINT#129:CLOSE 129:INPUT "PRINT ANOTHER COPY"; A$ 
IF A$<>"Y" THEN END 

RESTORE:GOTO 480 

REM ENTER YOUR ADDRESS HERE 

DATA JOHN DOE 

REM IF NO TITLE PUT 'X' IN PLACE OF THE WORD 'CITIZEN' IN LINE 750 
DATA CITIZEN 

DATA 321 ANYSTREET WEST 

DATA NEW YORK NY 10036 

REM EDIT ROUTINE 
Y=VAL(RIGHT$(A$(X), LENCA$(X) )-1)) 
PRINT"SELECT: 1)RE-ENTER ENTIRE LINE " 
LNPUT" 2)EDIT"$A 

ON A GOTO 840,860 

INPUTA$(Y ) 

X=X-1:GOTO 470 

REM 

PRINT"USE SPACE BAR TO SEARCH THROUGH LINE" 
PRINT"USE 'D' TO DELETE A CHARACTER" 
PRINT"USE 'I' TO INSERT CHARACTERS" 
PRINT"USE 'L' TO LIST A LINE" 
PRINT"'USE 'B' TO BACKSPACE, AND 'RETURN' TO" 
PRINT"END EDITS" 


C=1 

FOR Q=1 TO 10000 

GET Q$ 

IF Q$="" THEN M=M+1:C=C+1:1$=MID$(A$(Y),M,1):PRINT I$; 


IF Q$="L" THEN PRINT:PRINT A$(Y):C=1:M=0 

IF Q$="I" THEN INPUT J$:GOSUB 1000 

IF Q$="D" THEN A$(Y)=LEFT$(A$(Y),C-1)+RIGHT$(A$(Y) , LEN(A$(Y))-C) 
IF Q$="B" THEN PRINT CHR$(20);:C=C-1935 

IF Q$="B" THEN PRINT LEFT$(A$(Y),C)3:GOTO 890 


950 NEXT Q 
960 GOTO 870 


CATEGORIZING INFORMATION 


The purpose of the subroutine in Listing 1-4 is 
to categorize information stored in random access 
format on a floppy disk. Data is stored on disk with, 
for instance, a 10 character keyword preceding 240 
characters of descriptive information (many random 
access disk systems have a string length limit of 255 
total characters). The subroutine searches through 
the disk files to find and print all entries having a 
given keyword. This subroutine operates on the 
same principle as the Electronic Memorandum pre- 


Listing 1-4: The Categorizer Subroutine 


REM CATEGORIZER SUBROUT IME 


i 


eae 


(Ren SELECT RE HMOR TAM CATEGOR TT > CAE 


IHH@OAHggooo 


we 
ml = 


REM 


ross OCB oo Aye 


1000 A$(Y)=LEFT$(A$CY) ,C-1)+J$4+RIGHT$CA$CY) , LENCA$CY) )-—C+1) : RETURN 


REM OPEN A FILE FOR RAHDOM ACCESS ¢ 


940 IF Q$=CHR$(13) THEN PRINT:PRINTA$(Y):GOTO 850 


sented earlier in this chapter, but it is simplified for 
this application. Listing 1-5 is a simple categorizing 
program for use with tape. 

Why is a categorizer program useful? 
Businessmen, writers, and other professionals who 
need to categorize information for presentations, 
reports, outlines, or organizational purposes may 
find that a program incorporating this subroutine is 
helpful. A similar program was used in the prepara- 
tion of this book. Many other applications, including 
categorizing income tax deductions, are possible. 


REM INCORPORATE WITH A DATA BASE WHICH STORES INFORMATION 

REM IM THE FORMAT OF E.G.) 19 CHARACTERS FOR KEYHORIS 

REM AHI <E.G.? 249 CHARACTERS FOR DESCRIPTIVE INFO 

REM CREATE A FILE FOR RAXDOM ACCESS°"R") USING FILE#1 & FILENAME “DATA’ 
OPEH 1,8.15°0PEM 2.8.3."@°DATA.L, "+CHRE (2589 


"Reo UTM FILE#] & FILENAME “DATA 


ace REM 16 CHARACTERS FOR CATEGOR NAME 


laze FEM AMD 240 CHARACTERS FOR DESCRIPTIVE INFORMATION 
1H48 RESTORE DATA 1. CATEGORY. le. IMPORMAT DOr 
J REM SET FILE COUNTER TO 1 TO BEGIM AT BEGINMING OF FILE 


m=]° G07 Lleeea 


J7@ REM IF REACH EMD OF FILE. THEM EMD “sR ARCH 


IF E=36 THEM PRIWTHe. 1 GOTO Sele 
REM THCRENMEMT FILE COUNTER 

PGA test bh 
REM READ THE HEAT EMT’ 


2A MISH OMS=G01F MLPESS THEM S2=IHT CH 
2 FOR O<1 TO 2: READ AAECCOPRIWT#L- 


THFPOUT He. BECO MEAT 


Lae 


EE, oe a l maine 
BP CHREL SI CHRECHL OCHRE (82TH RECA 


Pol DP Fels “Te dee CME DES RE oA TEU Cii te: CREP. rol ae 
A IF BEC LIeCAE THEM FRIWT ASO lo Bolo PRED HT Ae Bene 


REM THCREMENT COWHTER 
Sa S241 C070 Lee 
CLOSEZ  CLOSEL: REM COUMTINUE PROGREM HERE. . 


Listing 1-5. The Categorizer Program 


5 PRINT CHR$(147) 

10 PRINT "CATEGORIZER PROGRAM" 
20 CLR 

25 X=1 


DIM A$( 1000) 
PRINT "SELECT: 1) ENTER STRINGS" 


45 PRINT " 2) CATEGORIZE 
a7 INPUT © 3) END OTSA 
50 ON A GOTO 60,200,300 


65 INPUT A$(X) 


PRINT "ENTER STRINGS WITH KEYWORD AT THE BE- 


GINNING" 


70 IF A$(X)="END" THEN GOTO 80 

75 X=X+1:GOTO 65 

BOMOPEN 1.4 4. "CATEGORY FILES REM OPEN TAPE. FILE 

65 PRINT#1,X 

87 FOR N=1 TO X:PRINT#1,A$(N):NEXT 

90 CLOSE 1,1,1:GOTO 40 

200 INPUT "ENTER KEYWORD";BS$ 

210 INPUT “ENTER NUMBER OF FILES TO BE SEARCHED";Z 

220 PRINT "REWIND TAPE TO STARTING POSITION": INPUT "PRESS RETURN WHEN READY'';C$ 
230 OPEN 1,1,0,"(CATEGORY FILE'":REM OPEN FILE FOR INPUT 
233 INPUT#1, xX 

235 IF Z>=X THEN Z=X 

237 FOR N=1 TO Z:INPUT#1,AS(N) 

239 IF A$(N)="END" THEN GOTO 260 

240 IF BS=LEFTSCAS(CN) ,LENCBS) )THEN PRINT AS$C(N) 

250 NEXT N 

200 CLOSE bil 5O 

270-PRANT SPRINT 

280 GOTO 40 


END 


A RECIPE INDEX AND CALCULATOR 


A collection of your favorite recipes can be 
Stored on your computer for rapid and selective 
retrieval. A list of the characteristics of each recipe 
could be included (for example, time required for 
preparation, hot or cold, number served, meal 
(dinner, lunch, or breakfast), expense, and 
calories). Using these characteristics, the compu- 
ter could index recipes and print lists of recipes 
witha selected characteristic for a special occasion. 

A recipe calculator could change the amounts 
of each ingredient so that the proper amount of the 
recipe will be made for a given number of people. A 
simple recipe calculator subroutine is presented in 
Listing 1-6. It can be used alone or can be incorpo- 
rated in a recipe database program. 


Listing 1-6: The Recipe Calculator Program 


Ifthe costs for various ingredients were stored 
In your computer, the cost of a given recipe could be 
instantaneously computed; allowance would also be 
made for the number of persons to be served. This 
type of program could be especially useful to those 
with a sideline or fulltime bakery or catering ser- 
vice, as the costs for any recipe for any number of 
people can be quickly estimated. 

A sample field of information for one recipe 1s 
below: 


MEATLOAF, _ 6, 1.5 lb.gr.beef*lcup milk*. 
no. ocup onion* 1 egg, 
name of item servings. abbreviated ingredients 


350 1.5 hr., 
oven temp. bake time 


Bill’s favorite 
comments 


10 PRINT "RECIPE CALCULATOR" 


SUMMERS--4 


20 REM COULD BE IMPROVED TO CONVERT UNITS OF MEASUREMENT (E.G. PINTS TO QUARTS) 


30 PRINT "HOW MANY SERVINGS IS THE ORIGINAL" 


35 INPUT “RECIPE INTENDED FOR";S1 
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PRINT "HOW MANY SERVINGS ARE TO BE" 
45 INPUT "PREPARED" ;S2 

50:-R=S72/S 1 

N=] 

TO PRINT 


PRINT "ENTER 'END,1,1' WHEN FINISHED." 
INPUT A$(N) ,B(N) ,C$(N) 

IF A$(N)="END" THEN 130 

N=N+1:GOTO 100 

FOR X=] TO N 

IF A$(X)="END" THEN 170 

PRINT A$(X),R*B(X) ,C$(X) 

NEXT X 

PRINT 

END 


PRINT "ENTER THE NAME OF EACH INGREDIENT, THE AMOUNT (E.G., MILK,1,PINT)." 


A program to store information used in 
selecting and mixing drimks for instant retrieval 
could be created. Such a program could even store 
pictures of the size and shape glasses to use with 
each drink. The computer could also suggest an 
appropriate cheese to accompany a selected wine. 


ITINERARY ASSISTANT 

A list of appointments, deadlines, and various 
tasks could be stored in acomputer and displayed in 
a specified format to assist you with your itinerary. 
The electronic memorandum program may be used 
for this task. Another format could be that of a 
calendar; each day-block would be filled with things 
to do. Is there something you must do periodically, 
but often forget? Program the computer to au- 
tomatically remind you each time. 

A program could also printout a daily appoint- 
ment calendar of your custom design. It could in- 
clude beginning and ending times, time intervals, 
and provisions for recording expenses, and com- 
ments. Incorporate the day-of-the-week program 


Listing 1-7: The Telephone Call Timer Program 


found in this chapter. 

The professional may use amore sophisticated 
program for the purposes of time billing for clients. 
The computer can also be used as a medication 
reminder, signaling with an audible alarm, for those 
on complex therapeutic regimens. 


PHONE TIMER 


When you are making long distance phone 
calls, keeping track of the elapsed time can save you 
a considerable amount of money. Usually, the first 
one or three minutes is charged a flat rate, but for 
the remainder of the call the charges are updated by 
the minute. A countdown timer that makes use of a 
timing loop, for example FOR X = 1 to 500: NEXT 
X (which requires approximately 1 second), can 
display the amount of time remaining until the next 
charge. Also, a record could be kept of the number 
called and the cost for the call, for use with 
income-tax deductions or for comparison with tele- 
phone bill. The program in Listing 1-7 will time 
your calls and keep track of the charges. 


5 PRINT CHR$(147) 

10 REM LONG DISTANCE TELEPHONE CALL TALLY 
INPUT 'NEED TELEPHONE TIPS"; A$ 

IF A$="YES" THEN GOSUB 300 

PRINT "TELEPHONE COST TALLY" 


AD=0 
70 INPUT "ENTER INITIAL FLAT RATE";B 
75 B=B+AD 


INPUT "IS THIS AN OPERATOR ASSISTED CALL"; A$ 
IF A$="YES" THEN INPUT "ENTER ADDITIONAL CHARGE";AD:GOTO 70 
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80 INPUT "ENTER ADDITIONAL CHARGE PER MINUTE";C 

85 PRINT "IF USING A DISCOUNT LONG DISTANCE" 

87 PRINT "SERVICE ENTER DISCOUNT, OTHERWISE ENTER '0'" 
90 INPUT "ENTER DISCOUNT AS A PERCENTAGE": D 

100 D=D*.01 

110 PRINT "TO BEGIN TIMING PRESS 'RETURN'" 

120 PRINT "TO END TIMING PRESS 'RUN/STOP'" 

130 INPUT A$ 

135 PRINT CHR$(147) 

140 PRINT TAB(80)"ELAPSED MIN. CURRENT COST SECONDS" 
150 $=60:B=B-B*D:T=0 

155 PRINT CHR$(19); 

160 PRINT CHR$(19); 

162 PRINT TAB(160)T,,B,S: 

165 PRINT CHR$(157)CHR$(32) 

170 FOR X=1 TO 900:NEXT X:REM TIMING LOOP 

180 S=S=1 

190 IF S=O THEN T=T+1:S=60:GOTO 210 

200 GOTO 160 

210 B=B+C-C*D 

220 GOTO 160 

300 PRINTCHR$(A47):PRINT "ALL CALLS HAVE AN INITIAL RATE PERIOD" 
301 PRINT "OF ONE MINUTE. ADDITIONAL CHARGES" 

302 PRINT "TO DIRECT DIAL RATES ARE AS FOLLOWS:" 

303 PRINT 

304 PRINT "CREDIT CARD CALLS:" 

305 PRINT " CUSTOMER DIALED $ .60 1-10 MI." 

306 PRINT " CALLING CARD CHARGES $ .80 11-22 MI" 

308 PRINT " $1.05 23-3000 " 

310 PRINT "OPERATOR ASSISTED CALLS:" 

312 PRINT " $ .75 1-10 MI." 

314 PRINT " $1510: 11222. MI" 

315 PRINT " $1.55 23-3000" 

316 PRINT "PERSON-TO-PERSON: $3.00 ALL MILES" 
318 PRINT 

320 PRINT "DISCOUNT TIMES FOR CALLING ARE:" 

330 PRINT "60% 11PM-8AM NIGHTLY/8AM SATURDAY THRU 5PM SUNDAY AND HOLIDAYS" 
340 PRINT "40% SPM-11PM MONDAY THRU FRIDAY/5PM-11PM SUNDAY" 
350 PRINT:RETURN 


TELEPHONE FILE, DIALER, 
AND ANSWERING MACHINE 


Listings of emergency and frequently used 
telephone numbers could be stored if the list is 
sufficiently long to warrant computer search 
capabilities. 

The data strings used to store this information 
could be formatted as follows: 

HOSPITAL, AMBULANCE, 
identifier additional 
related identifier 
(to cross-reference) 


643-1998 * 643-1997 - tel. numbers 
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For those with a hardware bent, the addition of 
a pulse or tone dialing circuit for a modem with 
automatic dialing capability could allow a computer 
to search and then automatically dial a desired 
number. In connection with a burglar/security 
alarm system, the computer could be instructed to 
dial the police or fire departments and deliver a 
tape-recorded message. You could also construct a 
computer-controlled, programmable telephone 
answering machine with capabilities far exceeding 
those on the market. 


GREETING CARD/INVITATION LIST 
A mailing-list program could be used to ad- 


dress your Christmas greeting cards. If your list is 
large enough, the computer could sort zip codes, 
allowing you to send your cards under the bulk mail 
rate. (This would probably only be practical for 
businesses with large customer files.) Additionally, 
the computer could print a short “hello” note on the 
back of each card. The same idea could be applied to 
producing an invitation list for a party or meeting. 

Similarly, a list of dates of birthdays and an- 
niversaries could be stored and each month could 
remind you of the important dates for the upcoming 
month. 


PERSONAL TIME MANAGEMENT SYSTEM 


A personal time management system would 
assist you in planning the most effective schedule 
for completing a list of tasks. Input could include the 
description of each goal, the priority of that goal 
(using A, B, or C to represent categories of impor- 
tance) and the deadline date. The program could 
use PERT Program Evaluation and Review 
Technique or critical path analysis to plan and out- 
put a schedule most evenly distributing the work 
load. PERT 1s described in numerous computer 
programming texts and PERT programs are avail- 
able for many personal computers. Many people 
have found that they can accomplish much more if 
they make schedules and deadlines for themselves; 
PERT analysis will make that all the more simple. 


DECISION MAKER 


Complex decision making may be facilitated 
through the use of the computer. In the program in 
Listing 1-8, the computer first requests you to 
enter a list of the factors involved in making a 
decision. Next, you are asked to rate the relative 
importance of each of these factors ona scale often. 
Finally, for each possible outcome to the decision, 


vou are asked to rate the favorability of each factor 
ona seale of ten. This data is then analyzed, and the 
outcome with the lughest “tavorability” score for 
the Most IMportant factors is the one chosen as the 
final decision. 

tavorable decision will have the 
highest score, computed by sumnung the “rate of 
favorability multiplied by the relative importance 
for each factor. 


The most 


For example. W vou had several locations in 
mind for building a home and could not come to a 
decision, vou could form the following chart of fac- 
tors for making the deciston: these factors would be 
inputted to the decision-making program. 
Shopping: are there adequate facilities 
nearby? 

Churches: are they available and convenient? 

Neighbors: are they likely to be compatible 
with your lifestyle? 

Pohtee and fire protection: are they adequate 
for the area: 

Schools: are the schools your children will 
attend nearby 7 

Hospital: is there a medical center nearby? 

Hazards: are there hazards such as oi] tanks or 
streams that nught overflow? 

Recreation: are there suitable facilities within 
walking distance? 

Traffic: are the streets quiet and safe? 

Transportation: is public transportation avall- 
able? 

Lay of land and landscapimey: ts the land well- 
drained and not subject to erosion? 

Water: is there an adequate pressure and ts it 
drinkable? 

Nuisances: are there nearby sources of exces- 
SIVE NOISe. SHGKE, soot. dust, or odors 
that will degrade vour environment? 


Listing 1-8: The Universal Decision Making Program 


5 PRINT CHR$(147) 


10 PRINT "THE UNIVERSAL DECISTON MAKING MACHINE" 


15 CLR 
20 DIM A$(100) ,B( 100) ,CC 100) ,D$¢ 100) 


30 PRINT “ENTER THE NUMBER OF FACTORS USED IN" 


35 INPUT "MAKING THE DECISTON";NU 
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40 PRINT "ENTER FACTORS AND RELATIVE IMPORTANCE " 


45 PRINT "ON SCALE OF TEN:" 

90 FOR X=1 TO NU 

60: PRINT Vp sxe “ee TNPUL ASCK) JBCX) 
70 NEXT X 


80 INPUT "ENTER NUMBER OF POSSIBLE OUTCOMES :"'; X 


90 PRINT "ENTER NAME OF EACH OUTCOME:" 
100 FOR I=! TO xX 

PEOO PRINT "ese? “gst NPUL DSC 1 } 

L200. NEAT d 


130 PRINT "NOW, LET'S RANK EACH FACTOR FOR EACH" 


135: PRINT. “POSS TBEE- OUTCOME: ” 
140 FOR T=1 TO X 
LSO-PRINT: “FOR-OUTCOME-#” els “apo” 


160 PRINT "RANK THESE FACTORS ON A SCALE OF TEN:" 


170 FOR J=l TO NU 

180 PRINT A$(J);:INPUT R 
185 C(T)=C(1)4BCJ)*R 

190 NEXT J 

200 PRINT 

210 NEXT I 

220 PRINT 


230 PRINT "RANKINGS OF OUTCOMES ARE CHIGHEST " 


235 PRINT "RANKING = BEST DECISION):" 
240 FOR T=1 TO X 

250 PRINT D$(T),C(1) 

260 NEXT I 


ZL) END 


[If this process is still too complex, try this 
program: 


5 PRINT “THE DECISION IS:” 
10 X=RND (0):1F X< .5 PRINT “NEGATIVE” 
ELSE PRINT “AFFIRMATIVE” 


If you need help in making a decision that many 
people have to make at least once ina lifetime, you 
may want to use, the program in Listing 1-9 which 
determines the economic incentive for trading off a 
gas guzzling car for a new, more economical car 
sooner than you would if gas prices were not a 
factor. 


Listing 1-9: The Gas Guzzler Program 


10 PRINT CHR$(147);TAB(45)"SHOULD YOUR GAS GUZZLER GO?'":PRINT 
20 PRINT "DETERMINES THE ECONOMIC INCENTIVE " 
T 


25 PRINT "OF TRADING IN YOUR " 


30 PRINT "GAS GUZZLER FOR A MORE ECONOMICAL CAR':PRINT 


40 PRINT'ENTER NEW CAR'S MPG,CURRENT " 
45° INPUT CARS MPG" sR,M 

50 PRINT’ENTER COST OF NEW CAR IN" 

55 INPUT'DOLLARS";C 


60 PRINT"ENTER AVERAGE NO. OF MILES YOU DRIVE" 


65 INPUT'PER YEAR";D 


70 PRINT"ENTER CURRENT PRICE PER GALLON OF " 


75 INPUT" GASOLINE"; P 
80 R=R/(R-M):Y=(C*R*M) /(D*P) 


600 PRINT:PRINT'IF ";INT(Y);" YEARS IS GREATER THAN THE" 


605 PRINT"NUMBER OF YEARS YOU" 


610 PRINT "WERE PLANNING ON KEEPING YOUR CAR, " 
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615 PRINT "YOU SHOULD STICK WITH" 

620 PRINT" YOUR GAS GUZZLER FOR THE TIME YOU" 

625 PRINT'NORMALLY WOULD HAVE" 

630 PRINT’KEPT IT. OTHERWISE, YOU SHOULD TRADE "' 
635 PRINT"IT IN NOW." 

640 END 


HEALTH 


Your personal computer can even help you 
maintain your health. A listing of the caloric or 
nutrient content of various foods could be stored 
and subsequently referenced for determining the 
nutritive value of the food you eat. Additionally, 
data on the sugar or salt content of foods could be 
stored for the diabetic or person on a salt-free diet. 
Of course, such a program lends itself well to diet 
planning. 

The “Nutritive Value of Foods,” Home and 
Garden Bulletin No. 72, Agricultural Research 
Service, is an excellent source of nutritive values 
for all foods and is available from the superinten- 
dent of Documents, U.S. Govt. Printing Office, 
Washington, D.C.—Stock #001-000-03667-0. It 
lists the water, calorie, protein, fat, carbohydrate, 
mineral,and vitamin composition of all foods. 

A low-calorie diet-planning program could 
compute the number of calories you use per day (on 
the basis of weight, sex, height, and activities). Of 
course, if you eat more calories than you use up in 
energy, you build up reserves in the form of fat. 
Thus, weight control is primarily based on calorie 
balance. The amount of weight you could lose by 
either reducing intake or increasing activities 


would be mathematically calculated. The following 
data should be helpful in writing a program to help 
you lose weight or maintain health through exer- 
cise. 

A complete nutritional analysis program would 
allow you to input the types and amounts of foods 
you have eaten during the day, would compute the 
total intake of proteins, carbohydrate, fats, fiber, 
vitamins, and minerals, and would determine your 
average daily intake of each per day. Similarly, it 
would compute your average energy expenditure 
(see Table 1-1) and then subtract this from your 
average daily nutrient intake to determine your 
calorie balance and to compare your intake with the 
recommended daily allowances for your age, sex, 
and weight (see Table 1-2). Thus, areas for 1m- 
provement could be easily identified. A diet plan 
could then be determined to achieve these im- 
provements. 

One hobbyist uses acomputer to determine his 
pulse rate and lead him through an exercise ses- 
sion, acting as the coach and timer. Along similar 
lines, another hobbyist computes the aerobic points 
he earns in bicycling. 

A general purpose data plotting subroutine 
could graph morning resting pulse on the X axis 


Table 1-1. Energy Consumption Table. 


Heart 
(Beats Minute) 


Intensity 

of Exercise 
maximum 
very 

heavy 
fairly heavy 
moderate 
light 

very light 
resting 


Respiration 
(Breaths/Minute) 

50 

30 

25 

20 

18 

16 

14 

10 


Energy Consumption 
(Calories/Hour) 
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Mean heights and weights and 
recommended energy intake 


Height 
(cm) (in) 


Energy needs (with range) 
(kcall) (MJ) 


Category Age 


(years) 


Weight 
(kg) (Ib) 


0.0-0.5 6 13 60 24 
0.5-1.0 9 20 28 


kg x 115 (95-145) kg x .48 
kg x 105 (80-135) kg x .44 


Infants 


1300 (900-1800) 5.5 
44 1700 (1300-2300) 7.1 
62 2400 (1650-3300) 10.1 


Children 


Table 1-2. Recom- 
mended Caloric Intake Table. 
1. 
2.2 
2700 (2300-3100) 11.3 
2400 (2000-2800) 10.1 
2050 (1650-2450) 8.6 


2700 (2000-3700) 1 
2800 (2100-3900) 1 
4 


( 
( 
2900 (2500-3300 
( 
( 
( 


2200 (1500-3000) 
2100 (1200-3000) 
2100 (1700-2500) 
2000 (1600-2400) 
1800 (1400-2200) 
1600 (1200-2000) 
+ 300 

+ 500 


Pregnancy 
Lactation 


One gram of Carbohydrate = 4 calories 
One gram of Fat = 9 calories 
One gram of Protein = 4 calories 


versus minutes run previous day on the y axis, 
miles run versus subjective feeling at end of day, or 
many other inputs to allow you to see where you've 
been and where you are going! 

Listing 1-10 is a simple program that will help 
you calculate your pulse rate. 

The beginning runner is often unsure how fast 
he should run. Pulse taking can be helpful to assure 
beginners that they’re doing the right amount of 


work—not too much or too little. First, determine 
your base training pulse using the formula [220- 
(your age)] x .65. Anyone who makes sure that his 
or her pulse does not rise above this value is in the 
safety zone where the heart 1s being strengthened 
rather than overtaxed. 


SHORTHAND TRANSLATOR 
You could develop a shorthand system that 


Listing 1-10: The Pulse Rate Program 


5 PRINT CHR$(147) 


10 PRINT "CALCULATION OF PULSE RATE (BEATS/MIN)" 


15 INPUT "ENTER YOUR AGE";A1 


20 PRINT "PRESS ANY KEY FOR EACH BEAT":X=1:N=O 


25 INPUT "PRESS RETURN TO BEGIN";A$ 


30 GET A$:IF X=2000 THEN 60:REM CHANGE FOR COMPUTER'S SPEED 


4O IF Ag=""" THEN X=X4+1:GOTO 30 
50 N=N+1:GOTO 30 
60 PRINT "THE NUMBER OF BEATS/MIN="3N*2 


70 PRINT "YOUR TRAINING PULSE =";INT((.6)*(220-A1) ) 


80 END 
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Character Word Character Word 
and 
been 
can 
down 
even 
from 
good 
have 
into 
just 
know 
like 
more 
not 
other 
people 
quite 
right 
said 
that 
united 


very 
with 


you 
the 
zero 
one 
two 
three 
four 
five 
SIX 
seven 
eight 
nine 


million 
dollar 
percent 
cent 


A 
B 
C 
D 
E 
F 
G 
H 
| 
J 
K 
L 
M 
N 
O 
p 
Q 
R 
S 
T 
U 


BARNPHt SG -ODMDNMDNAWN-ON < xs< 


your computer could be programmed to understand 
and translate. The system could be similar to that 
used by court reporters, in which a single key rep- 
resents a word or part of a word. Inthis manner, you 
could quickly commit your thoughts to paper, and 
the computer could quickly analyze the shorthand 
and print the English equivalent. 

The basic stenographer’s character and word 
assignment is given in Table 1-3. 

In a like manner, a machine language program 
could translate a single keystroke into a full com- 
mand. For instance, such a program could translate 
a CONTROL P or shifted P to the word PRINT, 
thereby facilitating the input of a program. 


KITCHEN INVENTORY 


A file of all food items on hand (pantry inven- 
tory) could be useful in determining whether or not 
a given recipe can be prepared. As each item 1s 
added or subtracted, the transaction would be en- 
tered into the computer. If a desired level of inven- 
tory 1s specified, the computer could automatically 
print out a shopping list of items that are below 
desired quantity levels. An inventory program of 
this type would be best suited for the gourmet cook 
who must have a wide variety of seasonings and 


hundred 
thousand 


Suffix 


ver 
ward 


experience 


zation 


Table 1-3. Basic Steno 
Character Assignment Chart. 


other ingredients on hand. The inventory of a wine 
collection or food in the deep freezer may also be 
maintained. 


RATING CALCULATIONS 


An equation to determine a rating for a par- 
ticular stock, car, horse, home, or any item of value 
could be computerized if it is referred to often or is 
complex. For example, the horse racing fan could 
use the following empirically derived equation to 
determine an objective rating for a particular horse: 


Rating = (W + P/3 + S/6) x 100/R + E/850 
where W = the number of wins 

P =the number of places 

S = the number of shows 

R = the number of races 

E =the amount of earnings in dollars 

Rating equations are empirically derived or 

are determined by finding the statistical correlation 
between a set of factors and the outcomes that the 
factors influence. 


INVENTORY OF POSSESSIONS 


A file of your personal property could be stored 
in computer format for insurance purposes or for 
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determining your net worth. A database pro- 
gram could record the date of purchase, the place of 
purchase, the length of the warranty, description of 
item, price, serial number, and model number. For 
instance, you could set up a simple database for 
tracking possessions by using these four fields: 
date, store, item, and price. This information could 
be entered from sales receipts or from your 
checkbook. At the end of the year, the database 
could be printed and a backup disk or cassette put in 
safe keeping. This could save you $10,000 or more 
in the event of a major disaster, because you will 
have excellent documentation of what you've 
owned. 

The computer may also be useful in comparing 
various insurance policies to determine which plan 
offers what you need at the lowest cost. Profession- 
ally prepared insurance-planning programs are 
available for a variety of personal computers. 

The advantage to using a personal computer 1s 
that items may be easily added, deleted, or 
categorized, and a cassette or floppy disk copy of 
the inventory may be stored ina safe-deposit box. If 
you own a business, use this type of program to 
inventory your business equipment. 


INDEX TO IMPORTANT LITERATURE 
Your favorite lines of literature, passages from 


Listing 1-11: The Day of the Week Program 


5 PRINT CHR$( 147) 
REM CALCULATION OF THE DAY OF THE WEEK CORRESPONDING TO A GIVEN DATE 
REM APPLICABLE TO ANY DATE IN THE 20TH CENTURY 
ara Bane dl 

? ] ’ 


10 
20 
30 
oe 
34 
Bp) 
37 


IF M=9 
IF M=4 
IF Mz2 
IF M=2 THEN M=M+4:GOTO 50 
IF M>2 THEN M=M-2:GOTO 50 
M=M+10:Y=Y-1 


THEN M=M-7:GOTO 50 
THEN M=M+1:GOTO 50 


INPUT "ENTER THE MONTH,DAY,YEAR (MM,DD,YY) 


the Bible, quotations, scientific and business Jour- 
nal references, anecdotes, and other literary mis- 
cellanea could be collected, categorized, cross- 
referenced, and indexed for rapid retrieval. A 
specialized database program could be used for this 
purpose; see the database demonstration program 
at the end of this chapter. Sophisticated database 
programs are commercially available for searching 
the King James Bible for selected passages. 


DAY OF THE WEEK CALCULATION 


Calculation of the day of the week corre- 
sponding to a given date is useful to the 
businessman, vacation planners, historians, and 
others. For the sake of curiosity, some have found 
amazing congruencies between the days on which 
U.S. Presidents were born and other significant 
events in history. 

To calculate the day of the week for a specific 
date in the twentieth century, either use the pro- 
gram in Listing 1-11 or use the following formula: 


N = D+M+Y[(0.8(2M+1)] + [Y/4] 
where D = day of the month 
M = Month, where Marchis considered the 
first month, April the second, and Feb- 
ruary the twelfth 
Y = Last two digits of the year 


AND INTCY/4)<>Y/4 THEN M=M-1:GOTO 50 


N=D4+M+Y+INT(.8*%(2*(M4+1))4+INTC(Y/4) ) 


A=(N/7-INTCN/7))*7.1 
FOR: Ke. TO:-6 
READ A$(X) 
NEXT X 
100 PRINT "THE DAY IS ";A$(A) 


110 INPUT "PRESS ENTER TO END":EN$:END 
120 DATA SATURDAY, SUNDAY, MONDAY, TUESDAY, WEDNESDAY, THURSDAY, FRIDAY 
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[ | = The integer part of the result 


Next, divide the sum N by 7. The remainder from 
the division gives the day of the week. Count 0 as 
Sunday, 1 as Monday, and so on. 

Programs to calculate the date of Easter for 
forthcoming years have been written, and this re- 
mains an interesting programming challenge: 
hint—incorporate the above formula. 

A simpler program could calculate the day of 
the year for a given date; the businessman may find 
such calculations useful. 


FOOD STORE SHOPPING AID 


Your programmable calculator can sum and 
categorize prices and types of items as they are 
removed from the shelf at the supermarket. Provi- 
sion could be made for categorizing items into 
meat, groceries, produce, and taxable subdivi- 
sions. Additionally, there may be provisions for 
multiple entries, unit price calculations and com- 
parisons, error correction, and a warning if a preset 
cash limit has been exceeded. Outputs could in- 
clude total cost, tax, item count, and subtotals in 
each category. 


COUPON FILE 


For those who have the money-saving habit of 
collecting food coupons, a computerized list of your 
coupons could be helpful. Enter each coupon by its 
amount, brand name, product name, and location in 
your coupon folders or envelopes. Next, enter your 
shopping list. A computer search between your list 
and the available coupon list should yield a roster of 
coupons that may be used and where each one Is. 

Alternatively, the computer could store 
coupons by type of product, using, for instance 
these categories: restaurants, pasta products, 
drinks, cereals, snacks, meat, poultry, vegetables, 
fish, condiments, dairy products, baking items, pet 
food, cosmetics, paper goods, cleaning products, 
medicine, and miscellaneous. The shopper may call 
up the list of coupons within a category to select the 
coupons he ts interested in and find out which brand 
name each one Is filed under. 


HOME PLANNING 


An interesting program could be written to 
help a family design a house to fit their needs; the 
expense of a house certainly justifies an in-depth 
analysis of the design before construction 1s 
started. You could use video graphics to draw and 
transform basic house plans (preferably with a light 
pen). 

Square footage could be calculated with the 
following guidelines in mind: the minimum square 
footage should equal the number of family members 
times 200; the desirable square footage should 
equal the number of family members times 300. An 
activity list such as the one below could be included 
to ensure that the family’s activities will not conflict 
and that there will be provisions for all activities. 
The program could request the user to enter the 
activities that are to be done in each room and the 
times involved; conflicts could thus be analyzed, 
and the plans could be altered accordingly. The 
following activities could be included in the pro- 
gram: 


Group Activities 

1. Lounging—indoors and outdoors 
Television watching 

Listening to stereo, tapes, or radio 
Playing a musical instrument 
Meals 

Children’s play areas 


2 Sa ee 


Social Activities 

1. Holding a meeting in the home 
2. Children’s/adult’s games 

3. Viewing movies/slides 

4. Visiting with guests 


Work Activities 

Meal preparation and clean-up 
Household business 

Food preparation 

Laundry 

Ironing, sewing, or drying clothes 
Workshop area 


C2 ee 


Private Areas 
1. Study of reading areas 
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2. Grooming or dressing facihties 


Traffic patterns and sterage requirements 


could also be analyzed. 


Storage requirements: 
Bedrooms—minimum of 4° x 6" «x 24” 
Space/person 
Utility areas—about 36" wide and 16” deep 
Kitchen—approximately 10 linear teet of base and 
wall cabinets 


closet 


PRIVATE INFORMATION STOREHOUSE 

Almost everyone has some private —financial 
information, diaries, Or important numbers—that 
they would like to keep more securely than ina 
filing cabinet. A progra written to store 
this information in coded form so that it could only 
be retrieved by someone with the proper password. 
Copies of such data could be stored in a sate-de posit 
box. 


ny could be 


GENERAL PURPOSE CLOCK OR TIMER 

If your computer is equipped with a real time 
clock, 1t could be used as an electronie timer or time 
controller for scientific rescarch, sporting events, 
or other applications requir a stopwatch. The 
capabilities that a computer fas but a stopwatch 
doesn’t include the automatic storage and printout 
of selected id the: In- 


times at automatic control of 


Listing 1-12: The Blood Alcohal Content Program 


PR EN ot eer ea Soe Fey 
LO-UPRANT “EON ALC ORO) CUR TIME TALC ATOR” 
20) PRINT "EN “He a eee) 

30: PRINT. “TEN CREE OTe ES ea ge CN SUT) 
35: INPUT "PROOE Giles CUB gr hey al 

GO INP MINTER YORI WSC TX CRON DS 

50) CHC OZ Ss 37 ie 

60 PRINT "YOUR PSEIMALED BLOOD ALCOHOL 

(OP RENE 

BOP eS SOS EEN: oii LEG) 

GOL Grail e 2 eS Gee relas esi) 

HOO: Ms Geol APN ST, * at 


L100 END 

P20, PRENSA 
[BO PRINT "A eee 
140 PRINT “CONSTDEBRED i 
150 PRINT "A cn 


[eR Als Stet EO moet 18 

BSE ase: gf Pe SV NT ~ aul 
UR OP Riles LAG 

Ae. ceed 


Sa 
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where 


struments or other devices that must be turned on 
or off at given times. 

Even without a real time clock, your computer 
can still keep track of elapsed time for long distance 
telephone calls or act as a simple timer for applica- 
tions in which accuracy is not a major factor. When 
they are not using their computers for more practi- 
cal tasks, some hobbyists have transformed them 
Into very expensive clocks, with graphic displays of 
hour and minute hands, digital displays, simulated 
sundials, or even sand timers. Digital watch cir- 
cults may be interfaced with computers to facilitate 
time keeping. 


BLOOD ALCOHOL CONTENT 


It would be a good idea to calculate your blood 
alcohol content after a few drinks, before attempt- 
ing to drive. The formula used to calculate the 
percentage alcohol content in the blood 1s 


OZ* p* 0.037 


W 


C = blood alcohol content in % wt/vol 
OZ = ounces of drink consumed 

p = proof 

W = body weight (lbs) 


The program in Listing 1-12 will automatically cal- 
culate your blood alcohol content. 


TARE 


ENTE" Ce" Zr /VOL" 


VOT CONSTDERED AS INTOXICATION':RETURN 


KXTCATION': RETURN 
[S CONCLUSIVE INTOXICATION" :RETURN 


CARPENTERS’ AND MECHANICS’ HELPER 


Your computer can expedite the numerous cal- 
culations required by carpenters and mechanics 
when they perform tasks such as changing the di- 
mensions of a set of plans, converting anglo to 
metric measures or vice-versa, and estimating the 
amount of building materials needed in many other 
Situations. 

Some useful formulae include 


Anglo/metric Conversions 


1 meter = 39.37 inches 
= 3.281 feet 
= 1.0936 yards 
1 inch = 2.54 cm 
1 foot = 30.48 cm 


1 yard = .9144 m 
1 mile = 1609 m 


Wall Paper Estimator 


8640 S 


W - (H+ R) W-N 
where N = the number of strips in one roll 
W = the width of the paper 
H = the height of the wall 
R = the repeat length of the pattern 
P =the number of double rolls needed 
S =the width of the wall to be covered 


Concrete Block Estimator 


HeLe 1.25 
125 


where N = the number of blocks 


H = the height of the wall 
L = the length of the wall 


Concrete Yardage Estimator 


LeWe T 
324 


 —— 


where Y = the volume of concrete in cubic yards 
L = the length (ft.) 
W = the width (ft.) 
T = the thickness (in.) 


CAR MAINTENANCE 
CALCULATIONS AND RECORD KEEPING 


In addition to calculating and recording your 
car's miles per gallon, the computer could keep 
track of mileage statistics and signal you when a 
periodic check-up, overhaul, or oil change 1s neces- 
sary. For people having the privilege of deducting 
automotive expenses, the computer could keep 
tabs on amounts spent. 


RAFFLE TICKET PRODUCER AND DRAWER 


If your organization is sponsoring a raffle 
drawing, your computer could print out serialized 
raffle tickets and then draw the winning ticket based 
on a random number generator. 


LIFE EXPECTANCY CALCULATOR 


Listing 1-13 presents another program of 
interest to guests. Your life expectancy in years is 
calculated on the basis of life insurance studies. 
This program is interesting to run with data 
supplied for your present condition, and then run 
with data about yourself assuming you had kept 
your New Year's resolutions (stop smoking, lose 
weight, and so on). The difference in years is often 
surprising. 


Listing 1-13: The Life Expectancy Calculation Program 


5 PRINT CHR$(147) 
10 REM LIFE EXPECTANCY CALCULATOR 
20 REM ESTIMATES HOW LONG YOU WILL LIVE 
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REM PROGRAM IS BASED ON SCIENTIFIC DATA 
PRINT "LIFE EXPECTANCY CALCULATION FOR ADULTS" 
PRINT "20 - 65 YEARS OF AGE" 
PRINT "TYPE '1' FOR YES, '2' FOR NO TO ANSWER" 
A=/2 
INPUT "ARE YOU MALE";B 
IF B=1 THEN A=A-3:GOTO 90 
A=A+4 
PRINT "DO YOU LIVE IN AN URBAN AREA" 
INPUT "(POPULATION >2 MILLION)";B 
IF B=1 THEN A=A-2:GOTO 110 

PRINT "DO YOU LIVE IN A TOWN" 

JT "(POPULATION <10,000)";B:IF B=l1 THEN A=A+2 
PRINT "IF YOU WORK BEHIND A DESK TYPE '1'" 

T "IF YOUR JOB REQUIRES REGULAR, HEAVY" 

T "PHYSICAL LABOR TYPE '2'"sB 
IF B=l1 THEN A=A-3:GOTO 140 
IF B=2 THEN A=A+3 
PRINT "IF YOU EXERCISE STRENUOUSLY MORE THAN" 
PRINT"5 HALF-HOUR SESSIONS PER WEEK" 
PRINT "TYPE 'l',. IF YOU DO 2-3 SESSIONS" 
PRINT "PER WEEK, TYPE '2', OTHERWISE" 
INPUT "TYPE '3'"sB 
IF B=] THEN A=A+4:GOTO 170 
IF B=2 THEN A=A+2 
INPUT "DO YOU LIVE WITH A SPOUSE OR FRIEND";B 
IF B=1 THEN A=A+5:GOTO 190 
PRINT "HOW MANY DECADES HAVE YOU LIVED WITHOUT" 
INPUT "OTHERS SINCE 25 YRS. OLD";B:A=A-B 
PRINT "DO YOU SLEEP MORE THAN TEN HOURS" 
INPUT "PER NIGHT";B 
IF B=] THEN A=A-4 
PRINT “IF YOU ARE INTENSE, AGGRESSIVE, EASILY" 
PRINT "ANGERED, TYPE '1'; IF YOU ARE EASY-" 
INPUT "GOING, RELAXED, FOLLOWER, TYPE '2'"3B 
IF B=] THEN A=A-3:GOTO 240 
IF B=2 THEN A=A+3 
PRINT "IF YOU'RE HAPPY TYPE '1'; UNHAPPY," 
INPUD “TYPE: 32°38 
IF B=1 THEN A=A+1:GOTO 260 
IF B=2 THEN A=A-2 
PRINT "HAVE YOU HAD A SPEEDING TICKET WITHIN" 
INPUT 'THE LAST YEAR";B 
IF B=1 THEN A=A-1 
INPUT 'DO YOU EARN MORE THAN $50,000/YEAR"S$B 
IF B=] THEN A=A-2 
PRINT "IF YOU'VE FINISHED COLLEGE, TYPE '1';" 
INPUT ''GRAD SCHOOL, TYPE '2':"sB 
IF B=1 THEN A=A+1:GOTO 320 
IF B=2 THEN A=A+2 
PRINT “IF YOU'RE 65 OR OVER AND STILL WORKING," 
INPUT “TYPE '1'"sB 
IF B=] THEN A=A+3 
PRINT 'IF ANY OF YOUR GRANDPARENTS HAVE LIVED" 
INPUT "TO 85 TYPE '1' ":B 
TF B=] THEN A=A+2:INPUT "DID ALL 4 LIVE TO BE 80";B:IF B=l1 THEN A=A+6 
PRINT “DID EITHER OF YOUR PARENTS DIE OF " 


365 
370 
380 
385 
390 
400 
410 
415 
420 
430 
432 
434 
440 
445 
450 
460 
470 
480 
482 
484 
490 
495 
500 
510 
520 
530 
540 
550 


IF B=l1 THEN A=A-4 


PRINT "HEART CONDITION, CANCER, OR" 
INPUT "CHILDHOOD DIABETES";B 

IF B=l THEN A=A-3 

PRAM Ol eo 2 PACKS OAT go VP 
IF B=] THEN A=A-8:GOTO 440 


IF B=2 THEN A=A-6:GOTO 440 
IF B=3 THEN A=A-3 


INPUT "BOTTLE OF LIQUOR/DAY"SB 
IF B=1 THEN A=A-1 


INPURS 10s =e 30) GBS - TYPE "3" -< 
IF B=] THEN A=A-8:GOTO 490 

IF B=2 THEN A=A-4:GOTO 490 

IF B=3 THEN A=A-2 


IF B=l THEN A=A+2 


NPD S803 es 
A=A+B+1 
PRINT ""' 


ST OCT P ES aor SB 


DATABASE DEMONSTRATION 


Many of the program ideas described in this 
chapter can be implemented with a general purpose 
database computer program. This type of program 
should be able to store information pertaining to 
many items on a cassette tape or floppy disk and 
retrieve selected information. 

The usual method of storing data on a cassette 
or disk involves the use of one string of information 
containing several fields of separate data. A field is 
the memory space for a particular type of data. For 
example, a string containing five fields might look 
like this: 


Boolean Algebra*Byte Magazine*25*Schwartz* 
Feb 1978 


The first field signifies the title of the item (in this 
case a magazine article); all of the strings to be 
stored would be formatted in the same way, with 
the title of the item in the first field. Also, a limit is 
usually set on the length of any field (so that the data 
will fit neatly on a cassette or disk). If the informa- 


PRINT "IF YOU ARE OVERWEIGHT BY >50 LBS. 
OTHERWISE 


eee ih? 4 


PRINT "IF YOU'RE MALE AND HAVE AN ANNUAL" 
PRINT “CHECK-UP TYPE '1' AND TF FEMALE, TYPE" 
INPUT "'1' IF YOU SEE A GYNECOLOGIST ANNUALLY";B 


PRINT “YOUR. LEE EXPECTANCY. "LS-"3A3 "> 7 EARS." 


INPUT "STROKE OR HEART ATTACK BEFORE 50"3B 


PRINT "HAVE ANY OF YOUR PARENTS OR BROTHERS OR STSTERS UNDER 50 HAD A" 


PRINT “EP: YOU-SMOKE: >2° PACKS/DAY TYPE "173" 


INPUT "1/2 - 1 PACK/DAY TYPE '3'; OTHERWISE TYPE '4'";B 


PRINT "DO YOU DRINK THE EQUIVALENT OF 1/4 "' 


DON 2. OOF Ta Se Ps eee 


Bie glean eum 4c 


PRINT "IF YOU'RE BETWEEN 30-40 TYPE '1'; 40-50, TYPE '2'; 50-60, TYPE" 


tion in one field does not contain enough characters 
to fill the allocated space, extra spaces are added. 
The longer the fields, the fewer records the disk or 
cassette can hold. You'll learn to make fields as 
short as possible when you are dealing with a large 
data base. 

The second field in the example above contains 
the name of the source of the item. The third, 
fourth, and fifth fields contain the page number, 
author, and issue date respectively. An adequate 
database program should be able to search through 
many such strings and output those that contain 
items you want. For example, you can store an 
index to your library on a database system and 
subsequently obtain a listing of all the references 
pertaining to the stock market and written after a 
specific date. You would simply instruct the com- 
puter to search for all items that contain stock mar- 
ket in a certain field and a date later than the date 
specified in another field. Because the position of 
each field in all strings is fixed, the computer can 
search through a string (using the MID$ command, 
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for example) to the beginning of the proper field: database management program are summarized in 
specific information can easily be accessed in this lines 1790-1850 in the program in Listing 1-14 and 
manner. may be summoned to the screen by typing HELP in 
The variety of commands available in a response to COMMAND? 


24 


Listing 1-14: The Database Program 
10 REM DATABASE DEMONSTRATION PROGRAM 


20 REM MAY BE USED TO MAINTAIN MATLING LISTS, COLLECTIONS 


30 REM INVENTORY, ETC. 


4O PRINT CHR$(147):PRINI*'REMEMBER THAT THE HELP COMMAND PROVIDES INSTRUCTIONS." 
5O REM 

70 REM INITIALIZED FOR UP TO 200 RECORDS WITH 30 FIELDS EACH 

80 REM 

90 REM ALTER THESE DIM STATEMENTS TO ALLOW FOR MORE RECORDS 


190 
110 
120 
130 
140 
160 
170 
190 
200 
rae 
220 
250 
270 
280 
290 
330 
340 
380 
390 
400 
410 
420 
430 
460 
470 
480 
490 
500 
530 
540 
545 
550 
560 
580 
590 
600 
610 
620 
630 


DIM M$( 200) ,D$( 200) 

DIM P$(30) ,C$(31),F(31) 

PRINT" SELECT :1)BEGIN ANEW,2)LOAD OLD DATA FILE" 

INPUT V 

PRINTCHR$( 147) 

IF V=2 GOTO 1890 

F1g=" "sC$=""sP$(O)="BUFFER EMPTY" :N=0 

PRINT: PRINT 

PRINT'INPUT FIELD NAME, FIELD TYPE (A=ALPHA,N=NUMERIC)" 
REM 

FOR I=1 TO 30 

PRINTI;") a 

Eg=""': INPUT E$,RS$ 

IF E$=""" GOTO 420 

IF (RS$="A")ORCRS$="N") THEN 340 

PRINT" INCORRECT SYNTAX, PLEASE REENTER":GOTO270 
ES=LEFT$(E$+F1$,4)4+" "+RS$ 

GOSUB2470:REM ROUTINE TO THROW OUT EXTRANEOUS SPACES 
P$(1)=E$ 

NEXT I 

GOTO 430 

P$(1)="END" 

PRINT: PRINT" THE RECORDS AND FIELDS ENTERED WERE:" 
FORI=1T010 

IF LEFT$(P$(1),3)="END"THEN 500 

PRINTI;":";3P$(L) 

NEXTI 

PRINT: GOTO540 

PRINT" INCORRECT SYNTAX, PLEASE REENTER YOUR COMMAND" 
PRINT" ENTER YOUR COMMAND (ENTER HELP TO SEE A LIST OF AVAILABLE COMMANDS)" 
INPUT E$ 

N1=O0O: PRINT 

RESTORE 

READZ$ ,T 

IFZ$="##"THEN 530 

IFLEFT$(Z$ ,3)<>LEFT$(E$, 3)THEN580 

ON T GOSUB750,1120,1120,1110, 2090, 3340, 1310,1220, 3180,1120, 2620 
GOTO540 

DATA ADD,1,LIST,2,CHANGE,3,LABELS ,4,HELP,5,END,6,SEARCH, 7 


DATA SUM,8,SAVE,9,RUBOUT,10,SORT,11,##,-1 

REM ADD RECORD ROUTINE 

PRINT"BEGIN ADDING RECORDS. TYPE ‘END' WHEN FINISHED." 
N=N+1 
N1=N14+1 
EEGs!" 
PRINTN;") va 

FOR I=1 TO 30 

IF LEFT$(P$(1),3)="END'"THEN 980 
PRINTTAB(7)P$(1);": "; 

poset" 

INPUT RS$ 

IFRS$=""THENRS$="" " 
IFRS$="END"THEN1060 

IFMID$(P$(1I) ,6,1)<>"N"THEN9 20 
IFASC(RS$)>43 AND ASC(RS$)<58 THEN 920 


PRINT"THIS IS A NUME} [C FIELD--ENTER NUMBERS ONLY":GOTO830 


REM 

IF LEN(E$)+LEN(RS$)>245THEN1010 

IF LENCE$)+LEN(RS$)<=245THEN E$=E$+CHR$(126)+RS$ 
NEXT I 

P$=STR$(N) 

ES$=P$+E$+CHR$(126) 

GOTO1030 


PRINT'YOU HAVE EXCEEDED THE ALLOWED RECORD LENGTH, PLEASE REENTER."GOTO790 


M$(N)=E$ 

PRINT 

GOTO 760 

REM END OF ADDITION TO RECORDS 
N=N-1:N1=N1-1 


PRINT" YOU ADDED ";N1;" RECORDS." 
RETURN 

REM ROUTINE TO LIST RECORDS 

OPEN 128,4 


GOSUB2170:REM DETERMINE RECORD RANGE TO LIST 

IF T=l10THEN 1465 

IFT<>4THEN1360 

INPUT"WOULD YOU LIKE TO TEST LABEL ALIGNMENT"; Z$ 
IFZ$="NO"THEN1360 

INPUT"ALIGN PRINTOUT AND PRESS RETURN WHEN READY"; W9$ 
CMD 128 

FOR I=1 TO 2 

FORJ=1TO5 

PRINT" XXXXXXXXXXXXXXXXXXXXXXXXX" 

NEXT J 

PRINT: NEXT I 

PRINT#128 

CLOSE 128 

INPUT"PRESS RETURN TO PRINT DATA";RE$ 

GOTO1 360 

REM ROUTINE TO SEARCH RECORDS AND PERFORM SUMMATIONS 
PRINT" ENTER THE NUMBER OF THE FIELD TO BE SUMMED" 
INPUT SMZ% 

IF MID$(P$(SMZ) ,6,1)="N" THEN1270 

PRINT" INCORRECT TYPE OF FIELD, PLEASE REENTER" 
GOTO1 230 

REM 

PRINT"DO YOU WANT TO SUM OVER ALL RECORDS?( Y/N)" 
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1272 
1275 
1280 
1290 
1310 
1315 
1320 
1322 
1330 
1360 
1370 
1410 
1420 
1430 
1440 
1450 
1460 
1463 
1465 
1470 
1475 
1480 
1484 
1488 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1583 
1585 
1590 
1595 
1600 
1610 
1620 
1625 
1630 
1640 
1645 
1650 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 


S1$="" 

INPUT S1$ 
IFS1$<>"Y"THEN1310 
SZ=0:GOTO1 330 
S$='"'"':SZ=0:PRINT"ENTER THE FIELD NUMBER " 
INPUT SZ 

PRINT "ENTER THE EXPRESSION TO BE COMPARED" 
INPUT S$ 

Tl=1:SM=0:T2=N 

FORI=T1TOT2 

RS$=M$(1) 

E$=LEFT$(RS$,5) 

T3=VAL(E$) 

ES=RS$ 

RS$=CHR$(126) 
GOSUB3050:REM ROUTINE TO PARSE STRING 
GOTO1490 

REM RUBOUT COMMAND ROUTINE 
FD=T2-T1l+] 

FORT=T2+1TON+1 
M$(I-FD)=M$(1) 

NEXT 

N=N-FD 

RETURN 

IFT<=4THEN1570 
IFS%=OTHEN1520 
IFC$(SZ)<>S$ THEN 1850 
IFT=7THEN1650 

PRINT"(" : T : " ys 
T3=VAL(C$(SMZ) ) 

SM=SM+T3 

GOTO1850 

ONT-1 GOTO1650,1650,1580 
REM ROUTINE TO PRINT LABELS 
OPEN 128,4 

CMD 128 

FORJ=1T05 
IFC$(J)="END"THEN1 620 
PRINTC$(J) 

NEXT J 

PRINT 

PRINT#128:CLOSE 128 
GOTO1850 

REM 


PRINT"YOU HAVE EXCEEDED THE ALLOWED RECORD LENGTH, PLEASE REENTER." 


PRINTS 

FORJ=1TO10 

IF LEFT$(P$(J) ,3)="END"THEN1760 
PRINTP$(J)3": ";C$(J) 
IFT<>3THEN1 740 

INPUTRS$ 

IFRS$=""-"THEN1 740 

C$(J)=RS$ 

NEXT J 

REM 

IFT<>3THEN1850 

P$=C$(0):REM ROUTINE TO ADD A CHANGED RECORD 


PRINTP$ 

E$=P$+CHR$(126) 

FORJ=1T010 

IF LEN(E$)+LEN(C$(J))>245 THEN 1645 
E$=E$+C$(J)+CHR$(126) 

IFP$(J)="END" THEN 1840 

NEXT J 

M$(1)=E$ 

NEXT I 

IF T<>8 THEN 1880 

PRINT'THE SUM OF RECORD ";P$(SMZ);"="3SM 

RETURN 

REM LOAD DATA FROM DISK 

J=-1 

INPUT"ENTER FILENAME": F$ 

KP$=F$ 

OPEN2,8,2,"0:"4F$+",S,R" 

INPUT#2 , E$ 

J=J+1 

INPUT#2 , E$ 

IF E$="EOF"THEN1990 

M$(J)=E$ 

GOTO1940 

E$=M$(0) 

RS $=CHR$( 126) 

GOSUB3040 

FORI=1T030 

P$(I)=C$(1) 

IF LEFT$(P$(I) ,3)="END" THEN 2060 

NEXT I 

I=[I-1 

N=VAL(C$(I+1)) 

CLOSE 2:GOTO540 

REM HELP SEQUENCE 

PRINT'COMMANDS AVAILABLE:" 

PRINT"ADD: ADDS RECORDS TO THE FILE":PRINT'CHANGE: CHANGES RECORDS IN FILE" 
PRINT" RUBOUT: DELETES A RECORD FROM THE FILE":PRINT"LIST:LISTS RECORDS" 
PRINT"LABELS: LINE PRINTS CONTENTS OF FILE':PRINT'SAVE:SAVES DATA ON DISK" 
PRINT"SORT:SORTS RECORDS INTO ALPHANUMERIC ORDER BY A SPECIFIED FIELD" 
PRINT'SUM:SUMS A FIELD OVER A GROUP OF RECORDS" 
PRINT'SEARCH: FINDS A RECORD CONTAINING A SPECIFIED FIELD" 
PRINT'HELP: BRINGS YOU HERE":PRINT"END:ENDS THE PROGRAM" 
RETURN 

REM DETERMINE THE RANGE 

IF N=O THENPRINT"EMPTY FILE" 

IFN=OTHEN 540 

PRINT"ENTER MODE: A(ALL) ,O(ONE) ,R(RANGE)" 

INPUTE$ 

IFE$<>"A'THEN 2260 

T2=N:Tl=l 

GOT02430 

IFE$<>"0" THEN2310 

INPUT" ENTER THE NUMBER OF RECORD";T1 

IFT1>NTHEN2440 

T2=Tl 

GOT02430 

IFE$="R"THEN2340 

PRINT" IMPROPER SYNTAX, PLEASE REENTER" 
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2330 
2340 
2350 
2360 
2370 
2380 
2390 
2430 
2440 
2450 
2460 
2470 
2480 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2633 
2660 
2670 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2942 
2944 
2950 


GOTO2200 

PRINT" INPUT THE LOWER BOUND" 

INPUT Tl 

IFT1<1THENTI1=1 

IFTI>N THEN 2440 

INPUT" INPUT THE UPPER BOUND" ;T2 

IFT2>N THEN 2440 

RETURN 

PRINT'THERE ARE ONLY ";N;' RECORDS IN THIS FILE" 
GOTO2200 


REM 

REM ELIMINATE EXTRANEOUS SPACES FROM STRINGS 
T1L=LEN(E$):C$=" ":IFT1=0 THEN 2600 

FOR T2=2TOT1 


IF MID$(E$,T2-1,1)<>C$ THEN 2550 
E$=MID$(E$,2,T1-1) 

NEXT T2 

T1=LEN(E$ ) 

IF Tl=O THEN 2600 

IF RIGHT$(E$,1)<>C$ THEN 2600 
E$=LEFT$(E$,T1-1) 

GOTO2570 

RETURN 

PRINT"PLEASE REENTER DATA" 

INPUT "INPUT THE FIELD NUMBER TO BE SORTED "';SZ 
PRINT"THE FIELD NAME IS ":P$(S%) 
PRINT"USE LIST TO SEE THE SORTED FILE" 
TZ=N2 7 121 

T2=N 

FORI=T1TOT2 

E$=M$( 1) 

RS$=CHR$( 126) 

GOSUB3040 

D$(1)=C$(S2Z) 

NEXT I 

IF MID$(P$(S%) ,6,1)<>"A" THEN 2780 
SRZ=1 

GOTO02820 

IF MID$(P$(S%) ,6,1)="N" THEN 2810 
PRINT"ERROR: THE WRONG FIELD TYPE WAS ENTERED" 
GOTO540 

SR%=2 

REM SORT ROUTINE 

M=N 

M=INT(M/2) 

IFM=OTHEN3020 

J=1 

K=N-—M 

LSJ 

L=I+M 

IFSR4Z=2THEN2930 

IF D$(1)<D$(L) THEN 2990 

GOTO2940 

IF VALCD$(I))<VALCD$(L)) THEN 2990 
E$=D$(T) 

D$(1I)=D$(L) 

D$(L)=E$ 

E$=M$(T) 


2952 M$(1)=M$(L) 

2954 M$(L)=E$ 

2960 I=I-M 

2970 IFI<1 THEN 2990 

2980 GOTO2890 

2990 J=J+1 

3000 IFJ>K THEN2840 

3010 GOTO2880 

3020 GOTO540 

3040 REM 

3050 REM STRING PARSING ROUTINE 
3060 K=- 

3070 FORJ2=1 TO LEN(E$) 

3080 IF RS$=MID$(E$,J2,1) THEN 3110 
3090 NEXT J2 

3100 RETURN 

3110 MZ=J2-1 

3120 K=K+l1 

3140 C$(K)=MID$(E$,1,M2) 

3150 E$=MID$(E$ ,J2+1) 

3160 J2=0 

3170 GOTO3070 

3180 REM ROUTINE TO SAVE DATA 


3190 INPUT" INPUT A NAME FOR FILE BEING SAVED ";F$ 


3195 IFF$=KP$ THEN GOSUB3350 

3200 OPEN2,8,2,"0:"+F$+",S,W" 

3210 PRINT#2 ,CHR$(34)+F$+CHR$(34) 
3215 E$="00000" 

3220 FOR I=1TO10 

3230 E$=E$+CHR$(126)+P$(1) 

3235 RS$=LEFT$(P$(1),3) 

3240 IF RS$="END" THEN 3255 

3250 NEXT I 

3255 E$=E$+CHR$(126)+STR$(CN)+CHR$(126) 
3257 PRINT#2 ,CHR$(34)+E$+CHR$(34) 
3260 FORJ=1TON 

3270 PRINT#2 ,CHR$(34)+M$(J)+CHR$(34) 
3280 NEXT J 

3285 PRINT#2,"EOF" 

3290 CLOSE 2:RETURN 

3340 END 

3350 OPEN 15,8,15,"SCRATCHO:"+KP$ 
3360 CLOSE 15 

3370 RETURN 


Database programs are perhaps the most 
useful personal computer programs because of their 
wide application. In what applications could you use 
a database? The list in Table 1-4 names a number of 
the thousands of types of information that may be 
stored, indexed, organized, or cross-referenced by 
a database program. Many of these applications are 
discussed in more detail throughout the book. 


Sophisticated database programs are commer- 
clally available, but the following database dem- 
onstration program should be adequate for most 
home uses. Unlike most commercial programs, 
which rely upon machine language commands for 
added speed, this program is written in BASIC for 
easy modification. It 1s designed for use with floppy 
disks. 
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Table 1-4. Uses for Database Management System. 


Workshop data Student records Field trips Personal records 
Assets lists Grade records Vehicle records Check lists 

Marketing data Teacher lists Tenure records Club rosters 
Insurance data School lists Parking assignment Telephone directories 
Pricing schedules Program design Violation records Recipes files 

Tuition data Meeting schedules Medical information 
Enrollment data Facility schedules Property records 


Customer filing 

Prospect lists 

Master files for... 
Gen. Ledger 
Accts. Receiv. 


Accts. Payable Formulas 
Payroll Records Production data 


Personal data 
Telephone logs 
Telephone lists 
Hotel/travel data 
Reservations 
Property control 
Library catalogues 
Inventory 
Key Employee data 
Advertising data 
Source files 
Sales leads 
Mail lists 
Private records 
Corp. records 
Directories 
Billing information 
Delivery schedules 
Routes 
Territories 
Quotations 
Applintments 
Conventions 
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Processes 

Cross referencing 
Commission records 
General filing 


Property/equipment 
Athletic schedules 
Player assignment 
Games schedules 
Player statistics 
Mailing lists 

Test scores 
Menus 

Diet selections 
Inventory 

Seating charts 
Cataloguing 
Laboratory data 
Inspection data 
Experimental data 
Attendance data 
Course description 
Purchase orders 
Requisitions 
Vacation records 
Budgets 
Maintenance data 
Locker assignment 


Appliance warranties 
Insurance records 
Christmas lists/gifts 
Appointments 
Articles indexes 

Tax records/data 
Expenses 

Book ownership 
Utility records 
Deposit files 

Due dates 

Travel records 

Meal planning 
Mortgage data 

Auto records 

Crop yields 

Source files 
Magazine Article index 
Estimate files 
Investments 

Plus all the Business & 
Educational overlaps 
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Business and Financial Applications 


Personal computers have greatly altered the busi- 
ness world by permitting rapid calculation of 
numerous “What if . .?” questions involving finan- 
cial formulas, in addition to providing accounting 
functions. Likewise, the homeowner will find the 
personal computer useful in analyzing loans, 
budgets, and investments. Calculations that were 
previously open to error and time-consuming can 
now be accomplished with ease and permit better 
decision making. 


FINANCES AND INVESTMENTS 


A growing number of investors are using their 
personal computers to help them manage their 
stock and bond portfolios, analyze trends in the 
financial markets, and investigate individual stocks 
and decide when to buy or sell. A personal com- 
puter connected to a database can sort out enorm- 
ous quantities of market and company statistics for 
an investor; and within seconds the results may be 
projected on the screen as charts, tables, or graphs, 
enabling an investor to evaluate a buying 


opportunity —or a must-sell situation—quickly and 
probably more accurately than if the calculations 
were done by hand. The personal computer can 
Sometimes make your life as an investor more re- 
warding, and often much easier. Additionally, the 
cost of investment programs may be counted as a 
business expense for tax purposes, as can part or all 
of the cost of your computer. 


STOCKS, BONDS, AND SECURITIES 


The personal computer has come to the aid of 
the individual investor in three areas: portfolio 
management, technical and fundamental analysis; 
and database access. Making investment decisions 
or recommendations requires accurate technical 
analysis of large amounts of data on a timely basis. 
Compiling information in standard formats con- 
cerning stock performance or company finances, 
doing statistical computations to update individual 
stock files, tracking moving averages, and main- 
taining complete records of one or a number of 
portfolios are all tasks ideally suited to the personal 
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computer. Professional brokers as well as individu- 
als have witnessed the significant impact that the 
personal computer can have on the analytical func- 
tions on which they base their recommendations. 
With the advent of the bull market of the early 1980s 
and the rise of the discount broker, professional 
software packages have become available to help 
investors at home make the investment decisions 
that used to be made by their full-service broker- 
ages. 


Portfolio Management 


Portfolio management programs are really just 
electronic notebooks. They keep acomplete record 
of the stocks you own and show how well you're 
doing at the game. They are especially useful at tax 
time; their compilations of your losses, gains, 
dividends, brokerage commissions, and more make 
it easy to account to Uncle Sam for your Wall Street 
activity. 

The limitations on most packages involve the 
number of stock characteristics maintained or com- 
puted for each stock. Most packages will allow fora 
virtually unlimited number of stock records (letting 
you track your own portfolio as well as that of 
several financial advisors), as long as you are 
willing to maintain them on a number of disks. 

The simplest individual portfolio management 
programs provide a means of recording the basic 
information on stocks in your own portfolio or on 
any other stocks you wish to track for comparison. 
When you choose to update—on a dally, weekly, or 
other periodic basis—the program will automati- 
cally perform certain calculations, such as present 
value of the issues, or long- and short-term gains 
and losses (as if you sold the stock on that date). It 
can automatically remind you of a stock that will go 
long-term within 30 days or maintain other infor- 
mation such as dates and number of shares pur- 
chased, total number of shares owned, dividends, 
growth rate, and percentage appreciation or depre- 
ciation. The following analysis factors may be com- 
puted for the entire portfolio: sum of cost prices, 
sum of current value, sum and percentage differ- 
ence between cost arid current price, percentage 
return on acost basis, and percentage return on the 
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current value. A report may be automatically pre- 
pared for attachment to IRS forms, and the portfolio 
information may be printed in a variety of formats 
for ready reference. 

More advanced portfolio management 
packages allow hundreds of open tax lots in a sys- 
tem that matches your transactions against open 
positions to let you make investment decisions that 
minimize your tax liability. You can track stocks, 
options, bonds, treasuries, and mutual funds; the 
system can accommodate buy, sell, short sell, and 
buy-to-cover transactions. Return on investment 
for each stock and the entire portfolio may be com- 
puted as well as the total net earnings. Sophisti- 
cated programmers could make use of Sharpe’s 
method (or another method) in determining the 
proportion of funds that should be allocated to each 
security in a portfolio to maximize returns. 


Technical and Fundamental Analysis 


Fundamental analysis assumes that the price 
fluctuations of stocks are based on the basic finan- 
cial health of the economy and the performance of 
the individual company. Thus, fundamental ana- 
lysts look at such factors as earnings, sales, assets, 
and liabilities and use these to predict future price 
movements. 

Technical analysts argue that these factors af- 
fect stock prices only over the long run. Short-term 
fluctuations, they maintain, are governed by 
psychological conditions in the market itself, not 
external factors. Therefore, they believe the study 
of the past market behavior can determine the way 
to profits in the future. There are many different 
theories that promote various indicators as the key 
to future price movement. Some of the major indi- 
cators are the relationship between price and vol- 
ume, market averages, and new highs versus lows. 

Both fundamental and technical analysis call 
for extensive number crunching and are well suited 
for being handled by computers, although funda- 
mental analysis exceeds the capacity of most per- 
sonal computers. In fact, almost all of the analysis 
programs available on the personal computer mar- 
ket do technical analysis. In technical analysis, 
computers can be especially useful in charting var1- 


ous relationships between individual stock prices 
and trading volumes. A personal computer can turn 
a pile of statistics that might take several hours to 
plot by hand into a chart within seconds. In this 
chapter I will discuss some popular means of tech- 
nical and fundamental analysis. Interested readers 
are referred to popular manuals on investment 
analysis, statistics, and these publications on 
computer-assisted stock analysis for further infor- 
mation: 


*L.R. Schmeltz, Playing the Stock and Bond Mar- 
kets With Your Personal Computer, TAB BOOKS 
Inc., Blue Ridge Summit, PA 17214. 

*Leslie E. Sparks, Investment Analysis With Your 
Microcomputer, TAB BOOKS Inc., Blue Ridge 
Summit, PA 17214. 

*The Microcomputer Investor, The MicroComputer 
Investors Association, 902 Anderson Dr., Fred- 
ricksburg, VA 22401. 

*Computenized Investing on the Stock Market from 
Investment Software Concepts, P.O. Box 27, 
Bronxville, NY 10708. 

*Woodwell, Donald, Automating Your Financial 
Portfolio: An Investor's Guide to Personal Comput- 
ers, Dow-Jones-Irwin, 1818 Ridge Rd., Home- 
wood, IL 60430. 


With a microcomputer at your disposal, you 
can now develop and test a market theory without. 
countless, error-prone manual calculations! A 
“paper portfolio,” or collection of stocks to track 
that are not actually owned, was once too time and 
effort consuming for the individual investor to ex- 
periment with. When you experiment each “buy and 
sell” decision can be based on actual market per- 
formance and serve as a “lesson learned” in de- 
veloping your own trading strategies. 


Moving Averages 


Moving averages provide a measure of the 
movement of a stock relative to itself (in price, 
dividend, or volume), a composite summary of a 
key factor (for example, the average price of a stock 
group), and a ratio of two or more key factors (for 
example, P/E ratios). The moving average 1s often 
most useful in predicting the buy versus sell posi- 
tion of a stock in regard to its past trend. If the 
current stock price drops below the moving aver- 
age, a sell position would be taken and vice-versa 
for a buy position. The program in Listing 2-1 com- 
putes the moving average for a stock or other se- 
curity given aset of successive daily prices and the 
length of the span over which the average is to be 
computed. 


Listing 2-1: The Moving Average Calculator Program 


5 PRIHT CHRE (L472 TABS AS: 
168 PRINT MOVING AVERAGE CALCULATOR" 


mod. BR OR Ee Tee EE SALE eS Bae Lele 

ed PRINT "“EHTER “SS93° TO EMD." 

“el DIM ACSA Be 2 = 

$0 A=A41T PRIA BR ae | et Aue 

SO TF Ae ese SS99 THEM see 1 GOTO 6 

i LP AA aS AE soto chet 

GE THRPUTU ENTER SPAR LEMGTH" 6 

PA Bec l+Coee D=1: Bel 

C6 F=@:FOR T=0 TO G 

SQ Feat Do+k HEAT 

1969 G=G+1l: Bees (HTC. StF elo EsE+]  D=T4+1 

118 TF Gilt THEM Si 

l4Q PRIHT " WEEE # WEEKLY PRICK AVE. MOV OMIG AYE" 
166 FORT=170% 

le PRIHTIo" oc AE eae "abeds 
178 HEeT I 

Lee PRI Tee "2" TO CAOOSe AEM Seah 

LSS IMPLY 2c 
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SQ IF 220>1 THEN END 
2Oi FOR [=1 70 
218 GOTO ety 


SECTS HEAT | 


Price/Volume Trace 


In this analysis technique, the daily stock price 
and volume data are considered as (x, y) data points. 
Probability rules may be developed as clues to the 
immediate future performance of the stock price as 
it relates to volume. 


Rate of Change 


The rate of change is a measure that involves 
price fluctuations of a stock to itself and may be 
used to compare stocks in terms of price, sales, or 
earnings. On this basis you can find the stock with 
the best potential to increase in price in the im- 
mediate future, barring any information or indica- 
tion that the current stock trend will change or 
reverse. It is computed as follows: 


fending-Starting Price 


Starting Price 


% Rate of Change = * 100 


No. of trading days 


This value may be determined for daily, weekly, 
monthly, yearly or other periods by altering the 
denominator. 


Change Distribution 


This analysis technique compares the dis- 
tributional change of individual stocks within a 
group to the average change of the group for a given 
time period. This provides a probabilistic measure 
of the rate of change in either relative or absolute 
terms. 

The stock distribution, like a normal distribu- 
tion, 1s described by the factors of price average and 
Standard deviation; the standard deviation usually 
increases as the length of time considered in- 
creases and as the market rate of change increases. 
By knowing the typical stock price distributions for 
different market index rates of change, the proba- 
bility of success in short-term trading 1s increased; 
the investor is equipped with the probability dis- 
tribution of the price change. 
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Price Indexes 


Priwe indices are indicators of the central drift 
of a set of stocks or the market as a whole. These 
include the Dow Jones, New York Stock Exhange, 
American Stock Exchange, Standard & Poor index, 
and other indices. They can be best applied to 
determine a consensus of individual stock trends 
within a given stock category. An indicator that is 
well suited for computation on your personal com- 
puter would use the formula 


all stocks 
x y 
y 
where x = stock price 


y = number of shares traded at Xx 


y total shares traded 


INDEX = > 


The moving average and indexing concepts 
may be used as powerful decision-making tools in 
determining whether the investor should be an- 
ticipating a trading decision, trading, or inves- 
tigating other investments. 


Ratio Relationships 


The use of ratios is popular in business and 
finance because they afford a means of comparison 
of two or more factors that influence investment 
decisions. A well-known example is the price/ 
earnings (P/E) ratio used in measuring the poten- 
tial of a stock. Others include the ratio of sales 
growth, the ratio of consecutive period earnings, 
the yearly high stock price versus the low price, and 
the relative strength of a stock versus the market 
index. The personal computer may be used in au- 
tomatically calculating many of the popular ratios 
and in forecasting changes of ratios through the use 
of statistical regression. For instance, the future 
price of a stock may be computed given current 
value per share, projected earnings, and projected 
percent change in the P/E ratio using this simple 
formula: 


where Vv. = current value per share 
E = projected earnings 
C = projected percent change of P/E ratio 
E = current earnings 
V. = projected value per share 


Note that all projected values must be for the same 
length of time. 


Trend Line Analysis 


Trend-line analysis is a major statistical com- 
putation in financial analysis and is accomplished by 
using the method of linear least squares fitting of 
data. Suppose you obtained a set of data listing the 
value of one stock over a period of time. If these 
values were plotted versus the Dow Jones Index the 
result could appear as shown in Fig. 2-1. 

A trend line analysis would determine the equa- 
tion of the line that best fits or describes the data, 
telling you how one variable is related to another. 
This equation, in the form of y=a + bx, provides a 
means to estimate the value of a variable (y) given 
the value of the other variable (x). The values of a 
and b are determined using these regression equa- 
tions: 


n>XY—->XBSY 
n> ke = OXY 


DOW INDEX 


Fig. 2-1. A trend line graph. 


1 
are (SY—b>=X) 


where n = no. of (x,y) pairs 
individual x values 
= individual y values 
= slope of line 

= y axis Intercept 


mo Oo << PS 
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As described in the chapter concerning math- 
ematical and statistical applications, the standard 
error may be calculated for a regression line to 
determine how well it describes the data. 

The technique of multiple linear regression 1s 
used by investors in determining the influence of 
more than one variable (x, — x ) on another variable 
(y). The total variation in y may often be better 
explained through the use of multiple x variables (y 
SS a PDR, DX, he. g-5 DR), allowing more 
precise prediction than is possible through the sim- 
ple linear regression discussed above. For in- 
stance, one investor using microcomputer 
techniques has developed a four-variable regres- 
sion equation describing the stock market average: 


log V=at+b log E +c log G—dlogkR 


where V = Value of the average 
E = Earnings of the average 
G = Growth rate of the average’s earning 
R = Yield of quality long-term bonds 


In this example, the variables (E, G, R) are re- 
gressed on V. The constants a, b, c, d are deter- 
mined and used in predicting future values of V 
based on past relationships to E, G, and R. Multiple 
linear regression is also computed using the least 
squares method. For more information on the least 
squares method, refer to a textbook of statistics. 
Investors using multiple linear regression 
techniques have developed modeling equations that 
reflect the influence of a wide variety of factors, 
with high correlations, on stock and security prices, 
earnings, and P/E ratios. These include 


e The current month’s interest yield of the 
Moody’s AAA Bond Index. 
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e The ratio of pretax corporate profits for the pre- 
ceding twelve months to pretax corporate profits 
adjusted for inventory profits for the same 
period. 

e The ratio of current dollar gross national product 
for the preceding twelve months to current dollar 
gross national product for twelve months ending 
one quarter into the future. 

e The average yield on taxable U.S. Government 

3-5 year issues for the preceding six months. 

The average year-to-year percentage gain of the 

Consumer Price Index. 

The equity of the S&P 400 one year previous 

divided by the earnings of the S&P 400 for the 

latest twelve months. 

e The relative consistency of divided growth for 
ten years, in terms of the ratio of the correlation 
of the stock’s dividend growth with time to that of 
the S&P Industrial Stock Average’s dividend 
growth. 

e The relative consistency of earnings growth for 
ten years, computed as above. 

e The relative profit margin for the latest report 
twelve months. 

e The relative rate of earnings growth for the pre- 
vious ten years on a per-share basis. 

e The relative size measured by net income for the 
latest twelve months. 

e The relative return on equity, as earnings less 
dividends divided by equity at the beginning of 
the twelve-month period. 

e The relative five-year earnings-per-share least- 
Squares growth rate. 

e The relative prospective return on equity in the 
year for which earnings are being estimated. 

e The relative prospective earnings growth for the 
next quarter. 

e The relative reinvestment rate in the latest year. 

The relative prospective earnings growth for the 

next two quarters. 

e The relative dividend payout ratio for the latest 
twelve months. 

e The relative earnings growth for the latest 
twelve months. 


Of course, many other variables could be used 
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at the investors discretion, including DJIA, specific 
industrial indicators, GNP, employment statistics, 
disposable personal income statistics, indices of 
industrial production, bank deposits, money sup- 
ply, interest rates, inventory levels, accounts 
receivable/payable, and railroad freight usage. 
Witha large selection of apparently useful variables 
to employ, you can now build a multiple regression 
equation on your personal computer, seeking both 
the highest possible correlation and confidence 
level and the least interaction among variables cho- 
sen. The variables may be regressed against indi- 
vidual stock performance, group stock perfor- 
mance, and market indices or other securities. 
Those variables that are generally most useful in- 
clude measures of preceding and following interest 
rates, inflation, economic activity (for example 
GNP), industry health, and rates of change. 


Database Searching 


With the advent of databases available to the 
individual investor at low rates, a personal com- 
puter can be instructed to search for stocks fulfilling 
any combination of investment criteria. If, for 
example, you are a conservative investor, you 
could have a program hunt for companies whose 
shares have a P/E ratio of 5 or less and annual yields 
of 10% or more—both of which can signify under- 
valued companies. 


Financial Ratio Analysis 


Financial ratio analysis is an ideal, simple 
method of determining how well a particular com- 
pany has performed in relation to other companies 
in its industry or in relation to its own past perfor- 
mance and of predicting future performance. De- 
scribed below are several popular financial ratios 
that can be determined using figures from corporate 
annual reports and a simple BASIC program that 
does the necessary divisions and tabulations or 
comparisons with figures concerning other corpo- 
rations. Over the years, security analysts, brokers, 
and investors have found that financial statements 
become more meaningful when ratios between 
various values on the income and balance sheets are 


computed. These ratios may be divided into four 
categories, as shown below: 


Liquidity Ratios 

Current ratio 

Quick ratio 

Inventory to working capital 


Leverage Ratios 

Debt to total assets 

Times interest earned 

Current liabilities to net worth 
Fixed assets to net worth 
Debt to equity 


Activity Ratios 

Cash velocity 

Inventory turnover 

Fixed assets turnover 
Average collection period 
Total assets turnover 


Profitability Ratios 
Net operating margin 
Net income margin 
Return on assets 
Return on net worth 


Liquidity ratios are designed to measure a 
firm’s ability to meet its obligations as they mature 
and relate to the amount of cash and assets con- 
vertible into cash in the near future. 

Leverage ratios measures the financing pro- 
vided by owners as compared with the financing 
provided by the firm’s creditors. Creditors look at 
the owner-supplied funds to provide them with a 
margin of safety, but by raising funds through debt, 
the owners are able to maintain control of the firm 
with a small investment. The return of the owners 
1s magnified when the firm earns more on the bor- 
rowed funds than it pays 1n interest. 

Activity ratios determine how effectively 
the firm utilizes the resources available. 

Profitability ratios demonstrate the result 
of the policies and decisions of the firm’s manage- 
ment. Both operating margins and new profits are 


calculated to distinguish between the results of 
Operating policies and the results of financial 
policies. 


The input data needed for computation of these 
ratios 1s usually found in the financial statements of 
a company and includes 

Cash: all cash on hand plus cash in the com- 
pany’s bank accounts. Any cash in certificates of 
deposit or other short-term deposits should be in- 
cluded. 


Marketable securities: investments in obliga- 
tions that are readily marketable and can be con- 
verted into cash on short notice. 


Receivables (beginning): receivables should be 
net of any reserve for doubtful accounts and be fully 
collectible within one year. Beginning receivables 
are those that were due to the company at the 
beginning of the operating year. 


Receivables (ending): those receivables due to 
the company at the end of the operating year. 


Inventory (beginning): inventory that 1s on hand 
at the beginning of the operating year. 


Inventory (ending): inventory that is on hand at 
the end of the operating year. 


Current assets: the total of cash, marketable 
securities, receivables, inventories, and other as- 
sets of the company that are expected to be con- 
verted into cash in the normal course of business 
within the current operating year. 


Fixed assets: assets such as land, buildings, 
leasehold improvements, equipment, fixtures, fur- 
nishings, vehicles and other assets with lives 
longer than one year that are used in the operations 
of the company. 


Total assets: the total of all assets of the company, 


including current assets, fixed assets, and other 
assets. 
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Current liabilities: debts of the company that 
must be paid within one year, usually consisting of 
trade accounts payable, payroll taxes withheld, ac- 
crued expenses, and that portion of long-term debt 
coming due within one year. 


Total liabilities: the total of all the debt of the 
company, including current as well as noncurrent 
liabilities. 


Net worth: (also called owner’s equity or 
stockholders’ equity) the difference between total 
assets and total liabilities. 


Sales: the total revenues earned by the com- 
pany during the year, net of all sales discounts and 
returns. 


Gross operating profit: found by subtracting 
cost of sales from sales. It represents the difference 
between the sales price of all items sold and the 
cost of the items sold. 


Interest charges: the total amount of interest 
that has been paid by the company on its indebted- 
ness. 


Profit before income taxes: the net income of the 
company for the year after all expenses have been 
considered. It is commonly referred to as the “bot- 
tom line.” 


Current ratio. This ratio is computed by di- 
viding current liabilities into current assets. This 
ratio is the generally accepted measure of the abil- 
ity to satisfy short-term obligations and indicates 
the extent to which the claims of short-term 
creditors can be covered by assets that can be 
expected to be converted to cash in a period corre- 
sponding to the time obligations become due. 

Quick ratio. This ratio is computed by de- 
ducting inventories from current assets and divid- 
ing the remainder by current liabilities. This is a 
measure of the ability to pay short-term obligations 
without relying on the sale of inventories and is a 
better guide to short-term liquidity than the current 
ratio. 
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Inventory to working capital. This ratio 
demonstrates the proportion of working capital tied 
up in inventory and is used to find the possible loss 
to the company resulting from a decline in inventory 
values; a low ratio is desirable. 

Debt to total assets. This ratio measures 
the company’s obligations to creditors in relation to 
all the funds provided to the company; the lower the 
ratio, the greater the protection from losses being 
incurred by creditors in the event of liquidation. 
Generally, the maximum debt ratio should be 50%. 


Times interest earned. This ratio is deter- 
mined by dividing earnings before interest and 
taxes by interest expense. This measures the ex- 
tent to which earnings could fall before the company 
is unable to pay annual interest costs; the lower the 
ratio, the more difficulty the company will have in 
raising additional funds. A manufacturing company 
should cover interest more than four times and 
public utilities should cover interest about three 
times. 

Current liabilities to net worth. This ratio 
determines the amount of funds supplied by owners 
compared to funds provided by current debt; if the 
owners have not put enough funds into the com- 
pany, long-term creditors will be less willing to 
provide funds, and the company will have to utilize 
Short-term financing to a great extent, resulting in 
greater time before current bills are paid. Lower 
ratios are favorable. 

Fixed assets to net worth. This ratio indi- 
cates the extent to which owner’s funds are in- 
vested in assets with little turnover. Higher ratios 
will result for industries that are capital intensive 
versus companies that are labor intensive. 

Debt to equity. This ratio demonstrates the 
relation between total debt of the firm and funds 
provided by the owners; the lower the ratio, the 
greater the protection against creditor’s losses in 
the event of liquidation. Owners may desire a high 
ratio because this will magnify earnings and prevent 
possible dilution of control of the company if addi- 
tional equity must be raised. 

Cash velocity ratio. This ratio 1s computed 
by dividing cash and cash equivalents into sales. 
This ratio indicates the number of times cash has 


turned over within the year; a high cash velocity 
indicates cash is being used effectively. 

Inventory turnover. This ratio is computed 
by dividing the cost of sales by inventory. This ratio 
indicates the liquidity of inventory; a high inventory 
turnover shows that inventories are being held toa 
minimum, and a low ratio may indicate obsolete or 
slow-moving stock. 

Fixed assets turnover. This ratio is com- 
puted by dividing sales by fixed assets. This mea- 
sures the utilization of fixed assets; a low ratio may 
indicate the plant isn’t being utilized as effectively 
as possible, unless the company is labor-intensive. 

Average collection period. This ratio is 
computed by dividing accounts receivable by aver- 
age daily sales. This represents the average time 
period after making a sale before cash is received, 
indicating the effectiveness of credit and collection 
policies; these may need to be strengthened if this 
ratio 1s on the increase. 

Total assets turnover. This ratio is com- 
puted by dividing sales by total assets. This shows 
the effectiveness of the firm in utilizing resources 
to generate sales; a high ratio may indicate over- 
utilization of assets, and a low ratio may indicate an 
excessive investment or idle assets. 

Gross operating margins. This ratio is 
computed by dividing gross operating profit by 
sales. This ratio determines how far unit selling 
prices may decline without resulting in a loss from 
the sale of units and how products are priced in 
relation to their cost. 

Net operating margin. This ratio is com- 
puted by dividing profit before taxes by sales. This 
shows the amount each sales dollar provides to the 
continuing operation of the firm before considera- 
tion of income taxes. 

Net income margins. This ratio is deter- 
mined by dividing net profits after taxes by sales. A 
lower ratio indicates selling prices are relatively 
low and total costs are relatively high; thus, a small 
percentage drop in sales may result in losses. This 
ratio indicates the profitability after taking into ac- 
count all income taxes and expenses and measures 
the return on sales. 

Return on assets ratio. This ratio is com- 


puted by dividing net profits after taxes by total 
assets. This measures rate of return on total re- 
sources. 

Return on net worth ratio. This ratio is 
computed by dividing net profit after taxes by net 
worth. This ratio is indicative of the company’s 
earning on the investment of shareholders. A high 
or increasing value is favorable, although a very 
high value may indicate intense competition. Addi- 
tionally, temporary inventory profits may be the 
result of increasing commodity prices. A high value 
could also be caused by general prosperity or a 
declining position. 

Combined coverage. Combined coverage is 
computed by dividing annual interest and debt costs 
plus preferred dividends into the adjusted operating 
profit after taxes and before interest. A combined 
coverage of four is considered acceptable for an 
industrial company; a coverage of three times the 
combined requirements would make a utility stock 
high-grade. 

Dividend payout. The dividend payout ts the 
percentage of earnings on common stock that are 
paid out as dividends. Industrial companies average 
about 55%, utilities 70%, and growth companies 
less than 55%. 

Book value per share. The book value per 
share is determined by adding the stated or par 
value of the common stock to the additional paid-in 
capital and retained earnings accounts and dividing 
by the number of common shares. The book value 
would be lower for companies in which preferred 
stock is entitled to share in additional paid-in capi- 
tal. The book value is not as important an indicator 
as earnings and prospects for industrial companies. 
However, the book value of stock for financial in- 
stitutions and utilities 1s important in analysis. 


Additional Investment Applications 


On the following pages you will find ten more 
ways in which you can use your microcomputer as a 
tool for making profitable financial decisions. 

Company growth rates. The program in 
Listing 2-2 may be used to calculate company 
growth rates using historical financial data: 
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Listing 2-2: The Growth Rate Calculator Program 


me DIM seeds 


90 PRINT CHRE (1479 REM CLEAR SCREEN 


THAM 


a oer a ca 


ebRO HOT ALLOWED! GOT 1 Le 


180 PRINT "CALCULATION OF THE GROWTH RATE" 
116 ARG 

126 IHFWT "ENTER THE NUMBER 

120 PRINT “ENTER DATA POINTS SUCCESSIVELY" 
149 FOR Bel TO ecg 

158 INPUT 2°82 

169 HEXT £ 

17G FOR Bei TO 20m) 

ISG IF 2¢B<=0 THEM PRINT "DATA LESS 

190 ASAFLOGC ECB 

208 NEST 

218 AECL ECO eR 

Seb 26e0: 2F 20 


et POR B=] To fea 


at check CLOG SOB aoe Ae Bc So 

eo greeter be Sb eas Te 

6b HET E 
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esd FRINT "THE GROWTH RATE Te “STMT: Leeevo4+, Sota 
eth PRIMT 

2H EMD 


The intrinsic value of a stock. This value is 
calculated with this formula: 


TC -AMT 
CS 


Where _ I = intrinsic value 
TC = total corporation capital 
AMT = price per share 
CS = amount in dollars of capital stock 


A stock valuation program. A program of 
this type could find current and future values of a 
stock and the rate of return before and after taxes. 
Commissions would be considered in all calcula- 
tions. 

Brokerage commissions. Commissions 
could be calculated on standard and odd lots, as well 
as for stocks selling below one dollar per share. 

Earnings per share estimation. A histori- 
cal balance sheet and income data could be used to 
estimate future earnings for a given stock; future 
estimations may be made with trend-line analysis. 

An options valuation program. Using the 


40 


Black-Scholes or another economic model, an op- 
tions valuation program could determine the op- 
timum hedge ratio and spread of any options. When 
selling partially covered calls or when selling puts 
and shortening stock, an options writing program 
could be used to find the maximum profit and upper 
and lower break-even points. 

A program of this type is presented in Listing 
2-3. The purpose of this program 1s to assist the 
investor in planning the most profitable stock- 
option buy and sell strategy. The strategy used by 
the program involves the selling of options against 
stock bought; this is usually considered the least 
risky strategy and it is often the most profitable 
one. For example, you could buy 100 shares of 
stock to use as collateral for each call option sold. A 
call option, which is sold at a premium, allows the 
purchaser the right to buy the stock at a certain 
price (called the strike point), no matter what the 
true stock price becomes. However, the option 1s 
valid only for a certain length of time, known as the 
life of the option. This computer program will re- 
quest information pertaining to the stock and will 
calculate the value of the stock and return on in- 
vestment (ROI) over a range of 40% to 160% of the 


current value. Using this data, the investor should and then prints an itemized listing of all costs, 
be able to decide the probability that a certain buy brokerage fees, proceeds and returns. To make the 
and sell strategy will be profitable. In the final best use of this program, it is suggested that you 
analysis, the program uses a set of financial for- study references concerning stock-option strat- 
mulas to recommend a specific buy-sell strategy egies. 


Listing 2-3: The Stock Option Analysis Program 


10 PRINTCHR$(147)TAB(45)"STOCK OPTION ANALYSIS PROGRAM" 

20 PRINT 

30 DIM D(12),A$(20) ,B(10) ,F(12) ,K$(12) 

40 FOR D4=1 TO 12 

50 READ D(D4):F(D4)=D4:READ K$(D4) 

60 NEXT D4 

70 PRINT'ENTER THE NUMERICAL MONTH, DAY, YEAR ": INPUT M1,D9,Y1 
80 PRINT "IS THE STOCK TO BE BOUGHT ON MARGIN": INPUT "(1=YES, 2=NO)'"sM 
90 INPUT "ENTER THE % MARGIN RATE ":M2 

100 IF M=1 THEN D5=.5 

105 IF M<>1 THEN D5=1 

110 PRINT "ENTER THE NAME OF THE STOCK OR ID":INPUT D6$ 

115 PRINT"ENTER THE DIVIDEND IN $'S PER SHARE ":INPUT'PER QUARTER '";D7 
120 PRINT"ENTER THE NUMBER OF SHARES TO BE PUR-" 

125 INPUT'CHASED (MULTIPLE OF 100 SHARES":D8 

130 INPUT"ENTER PRICE PER SHARE"; P9 

140 INPUT"SELECT MARKET 1)NYSE, 2)OTC"SE 

150 PRINT"ENTER THE EXPIRATION MONTH (E.G. 1=JAN," 

155 INPUT"2=FEB...)"3E2 

160 INPUT"ENTER THE STRIKE PRICE ":E3 

170 PRINT'ENTER THE COST PER OPTION (MULTIPLY" 

175 INPUT"PRICE BY 100)";F4 

180 E5=D8/100 

190 PRINT"ENTER THE JANUARY, APRIL, JULY OCTOBER" 

194 INPUT'PREMIUMS":B(1),B(4),B(7) ,B(10) 

196 C4=100:C3=100 

200 FOR C8=1 TO 10 STEP 3 

210 IF B(C8)=0 THEN 590 

220 C9=B(C8) 

230 A4=C8*30.4225 

240 A8=A4+A7—((M1-1)*30.4225)-D9 

250 C=P9*C3 

260 FOR AQ=1 TO 2 

270 C4=A9*C4 

280 D=C4*C9 

290 B4=D*.034+.017*C 

300 B5=B4+C-D 

310 B6=B5*.085*A8/365 

320 D1=B6+B5 

330 PRINT"MONTH OF CALL ";C8 

340 PRINT'INITIAL INVESTMENT ';B5 

350 PRINT"TOTAL INVESTMENT ";D1 

360 PRINT"EFFECTIVE WRITING RATIO "3A9 

370 PRINT 
380 PRINT'STOCK PRICE RETURN ROI ~——-ROI/YR" 
390 FOR D2=-4 TO 6 

400 Al=(1-(.1*D2))#C 

410 IF Al/C3>(.25+E3) THEN 460 
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420 B9=0 
430 B7=Al1-D1 

440 GOTO 480 

450 Dl=(1-A9)*A1+D1 

460 B7=C3*E3-D1-100*(A9-] )*E3 

470 B9=(((A1/C3+1)-(1.068*C9) )*100)/(1 .068*C9) 
480 B8=B7/D1*100 

490 C2=A1/C3 

500 D3=B8/(A8/365) 

510 PRINT C2;" ";:MN=B7:GOSUB 4000:MN=B8:GOSUB 4000:MN=D3:GOSUB 4000:PRINT '" 
520 NEXT D2 

530 NEXT AQ 

535 INPUT"PRESS RETURN TO CONTINUE"; A$ 

590 NEXT C8 

600 IF A8>180 THEN PRINT "LONG TERM" 

610 PRINT 

620 E6=INT(E5*E3*100) 

630 E7=INT(E4*E5) 

640 E8=Y1*365 

650 E9=D9+D(M1)+E8 

660 F=F8+204D(E2) 

670 Fl=F-E9:IF F1<O THEN FlsF1]4+365 

680 F2=INT((F1/90)+.5) 

685 F3=INT(F2*D7*D8) 

690 F4=F3+E7+E6 

700 F5=INT(P9*D8) 

710 F6=INT(D5*F5) 

720 F7=F5-F6: F8=E:F9=F5:G=D8/ 100 

770 GOSUB 1150 

780 Gl=G2:F9=E6:G=D8/100:GOSUB 1150 

820 G3=G2:F9=E7:G=E5:F8=3 

860 GOSUB 1150 

870 G4=G2 

880 GS=F7-E7-F3+G 34+G44+G 1 

900 IF D5=1 THEN G6=0 

905 IF D5<>1 THEN G6=INT(((M2/100)*G5)*F 1/365) 
910 G7=G6+G34F7+G44C1+F6 

920 G8=F4-G7 

930 C9=F6-F3-E74+G6+G 3+G 14+G4 

940 H=INT((G8*1000)/G9)/10 

950 H2=INT(((G7-F34+E7)* 100) /D8)/100 

960 H1=INT(3650*H/F1)/10 

970 INPUT"PRESS ENTER TO CONTINUE"SA$:PRINT 
980 PRINT'"COVERED WRITE:";D6$;" DATEC(MM DD YY):"sM1;D9;Y1 
990 PRINT"HEDGE STRATEGY:" 

1000 PRINT" BUY';D8;" SHARES. (PRICE=$";P9;")" 
1010 PRINT'SELL "3E5;" "sKS(E2)3;E3;"'S($"sE4;"APIECE)" 
1029 INPUT'PRESS BNER TO CONTINUES A$ 

1030 PRINTCHR$(147)TAB(40)"EXPENSES:" 

1040 PRINT '" IMMEDIATE $"5F6 

1045 PRINT " LOAN (502) Mar] 

1050 PRINT '" BROKER'S FEES $" 


1055 PRINT " OPTION GGG 
1060 PRINT " IN $C] 
1065 PRINT " OUT $"6G3 
1070 PRINT " MARGIN COST  $"3G6 
1080 PRINT "TOTAL $":G7 
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PRINT" INCOME: ":PRINT" STOCK $";E6 
PRINT '' OPTION Se Ey 
PRINT " DIVIDENDS $";F3 
PRINT "TOTAL $"3F4 


1100 
1105 
1110 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1175 
1180 
1190 
1200 
1300 
1310 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4065 
4070 
4080 
4090 
4100 
4120 
4130 


G2=(( .009*F9)+22)+(6*G) 
ON F8 GOTO 1180,1190,1200 
IF G2<25 THEN G2=25 
RETURN 
G2=INT(.7*G2) : RETURN 
G2=21*G:RETURN 
G2=INT(.82*G2) :RETURN 


MN$=STR$(MN ) 
LN=LEN(MN$ ) 

FOR CN=1 TO LN 
KN$=MID$(MN$,CN,1) 
PRINT KN$; 

IF KN$=""."" THEN 4070 
NEXT CN 

PRINT "."'s:GOTO 4100 
IF LN-CN<2 THEN 4100 
FOR CT=CN+1 TO CN+2 
PRINT MID$(MN$,CT,1);:NEXT:GOTO 4130 


IF PN<=0 THEN PRINT "00"; 
PRINT " "3 :RETURN 


Computation of short-term insolvency. 
In this “Z-Score” computation based on an Ameri- 
can Institute of Certified Public Accountants 
timesharing program, the short-term liquidity 
trend score indicates whether a company 1s likely to 
face financial difficulties in the near future. 


Z = .012*((G—L)/]) + .014*(W/D) + 
.033* ((P+E)/I) + .006* (W/M) + 
.999«(S/T) 


where G = current 
L = current liabilities 
I = total assets 
W = net worth 
P = profit before income taxes 
E = interest changes 
M = total liabilities 
S = sales 
Z = “Z score” 


PRINT: PRINT" THE RETURN ON YOUR MONEY IS"3H;"Z($"3G8;" ON $'"s INT(G9)3")" 
PRINT'FOR "sF1;" DAYS,"3H13;"% ANNUALLY." 
PRINT"THE BREAK-EVEN POINT IS A PRICE OF $";(INT(H2*10) )/10:END 


DATA O,JANUARY, 31, FEBRUARY ,59,MARCH ,90,APRIL,120,MAY,151,JUNE,182,JULY,212 
DATA AUGUST, 243 ,SEPTEMBER , 272 ,OCTOBER , 304 , NOVEMBER, 334 , DECEMBER 


PN=LN-CN:IF PN=1 THEN PRINT RIGHT$(MN$,1);"0"; 


Stock alpha and beta. In this approach to 
analysis, the investor compares movement of a 
stock over a period of time with movement of a 
market average. This can be best measured by 
comparing the percent change in a given stock’s 
price with the percent change in the market as a 
whole over several large recent market fluctuations 
and deriving a result in the form y=a+bx where 
y=percent change in a stock’s price given x as the 
percent change in the market level. The constant a 
is called alpha and is a measure of the stock’s abso- 
lute continuing movement; high positive alphas are 
always attractive in stocks. The coefficient b is 
called the stock’s beta and is a measure of the risk1- 
ness of a given stock. High betas should produce 
good relative performance in a bull market, but 
relatively poor performance in a declining market. 
Beta’s may be calculated separately as a function of 
such factors as size of the company involved, its 
capital structure (for example, its debt/equity 
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ratio), return on equity, earnings consistency, and 
so forth. You may experiment with multiple linear 
regression in determining the relationship between 
beta’s and these or other variables. In general, the 
greater the beta, the cheaper the stock should seem 
to be and the greater the appreciation potential. A 
risk versus benefit analysis may be conducted, 
with, for example, betas charted versus potential 
appreciation based on present discounted value of 
the price of the stock. 

Equations used to independently determine 
stock betas are as follows and are well-suited for 
incorporation into a portfolio analysis program: 


Stock Beta 


Covariance of market and 
stock risk premiums 


Beta = ——— 
Variance of market risk premium 
> /{(market risk premium-ave. 
Variance =,. ; mae: 
time market risk premium) 
Covariance = 


bs (SRP-ave. SRP\* 
time \ (MRP-ave. MRP) 


SRP = stock risk premium 
MRP = market risk premium 


risk premium = (rate of return)— 
(risk free rate of return) 


1 


12¢(annual rate of 
a 3 month T-bill) 


risk free rate of return = 


(price at month end + dividend)— 
(price at month start) 


rate of return = 
price at month start 


For market statistics use the Standard & Poors 
500 Stock Index. 
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Portfolio Beta 
ps (stock beta) 
portfolio \(% of market value) 


market value of a stock 


Beta = 


% market value = 
total market value 


current price X no. of 
shares 


market value of a stock = 


Inflation rate effect. An oversimplified but 
often useful method of forecasting the effect of a 
given inflation rate on the stock market is as fol- 
lows. First, assume that the cost of money is con- 
stant at three percent. Add to this value a one- 
percent constant that will be assumed to be the risk 
factor for owning stocks instead of bonds. To this 
sum add the current inflation rate. Divide this final 
sum into 100; the result is the average stock market 
multiple of earnings. Now, multiply this result by 
the sum of the estimated yearly earnings of the 
thirty Dow Jones Industrial stocks. If the sum of the 
estimated earnings is not known, a simple com- 
puter program could determine earnings for the 
industrial stocks from the newspaper listings of 
price and price/earnings ratios (earnings=price/ 
price-earnings ratio); a method of determining fu- 
ture earnings growth would have to be employed. 
The final product calculated is a projected Dow 
Jones industrial stock average. 

The calculations would be as follows, assum- 
ing an inflation rate of five percent and estimated 
Dow industrial stock earnings of $110: 


100 


Te a ee LO S222, 
(3% + 1% + 5% 


Calculation of the future value of an in- 
vestment. You can use the program in Listing 2-4 
to calculate how much an investment will be worth 
in the future. 

Investment analysis using interest rate 
formulas. The set of interest rate formulae out- 
lined below may be used to assess and compare the 


Listing 2-4: The Future Value Program 


90 PRINTCHR$(147)TAB(40) 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


PRINT 

INPUT"THE PREVIOUS YEAR";F 
INPUT"CURRENT YEAR" 3E 

INPUT"MENT (OR PRODUCT/SALARY )";C 


INPUT'CALCULATED";B 
A=(100*(E-F)/F)/100 
D=INT((C*(A+1)°B)*100+.5)/100 
PRINT 

PRINT"THE FUTURE VALUE IS: $";D 
PRINT 

END 


values of investments with respect to time and 
money, considering that money today is inherently 
worth more than the same money tomorrow. In an 
investment, money passes from and to the investor 
in the form of borrowed money, loaned money, 
dividends received, installment loan payments 
made, and so on; these are called cash flows. The 
resulting profit or loss can be measured as an inter- 
est rate, the rate being absolute throughout the 
whole period of investment or applying only to a 
specific time interval. A $30 profit on a $100 in- 
vestment four years ago is a 30% profit in absolute 
terms, but when it is measured at an annual rate 
(using the equations below), the profit comes to 
6.8%. 

The interest equations below may be divided 
into two sets: equations l, 4, 7, and 9 are used to 
measure investments in which transactions occur 
only twice—once at the beginning and once at the 
end of the investment period. The other eight 
equations apply to problems in which constant dol- 
lar transactions occur at regular intervals. An in- 
stallment loan is a good example of this kind of 
problem. If you borrow $4000 to buy a car and pay 
off the loan over 36 at 12% interest, equation 11 
may be used to compute the amount for each pay- 
ment ($132.86). 

It 1s important to note that there is no formula 
for solving for interest rates directly in the second 
set of equations, because 7 cannot be isolated on one 


PRINT"CALCULATION OF THE FUTURE VALUE OF AN 


PRINT"ENTER THE NUMBER OF PERIODS TO BE" 


INVESTMENT" 


PRINT"ENTER THE CONSUMER PRICE INDEX FOR" 
PRINT" ENTER THE CONSUMER PRICE INDEX FOR" 


PRINT"ENTER THE PRESENT VALUE OF THE INVEST-" 


side of the equation. The only method to solve for 
interest rates in this situation 1s to use a “brute- 
force” approach in which the computer tries values 
for 1 and solves for F or P until the right answer is 
found. The value for 7 would be successively ap- 
proximated. 

The formulae in Table 2-1 will be used 
throughout this chapter in discussing loans, 
mortgages, annuities, and real estate evaluation. 
The uses are as varied as the diversity of invest- 
ments. The personal computer becomes useful in 
answering “what if?” questions involving changes 
in interest rates, time periods, and other variables 
with these equations or useful in solving equations 
o and 6 in Table 2-1, which require an iterative 
approach. 

Financial databases. The easiest way to 
enter information into stock-market programs is 
over the telephone. Various database services sup- 
ply detailed financial information—both current and 
historical— which can be retrieved by any computer 
through a telephone modem. On-line services offer 
most, if not all, of the securities you are likely to be 
interested in. For instance, one of the popular per- 
sonal computer networks (CompuServe) offers the 
following financial information for instant retrieval: 


e Figures on more than 9,000 securities, updated 


throughout each trading day—no need to wait for 
day-old stock values in the newspaper. 
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This table shows the appropriate formulae to use given 
three input parameters and a required output parameter. 


no. of uniform periods x 
interest rate per period Xx 
present value 

future value 

uniform payments 


RBQUIRED 


ise 
z P 
ee log (1 + i) 
a 
= 1— iP/R 
8 Tor +4) 


iF 


=|} 
ee rR 
"9 = joe +) 


"IF 
po! 


a . 


a 


. F=R 


R 


i= = — {1 —7)-” _-R=P 


i= 


((1 + iJ" — 1) 


e Detailed descriptive and financial information on 
thousands of major publicly-held companies. 

e Current and historical information on more than 
40,000 stocks, bonds, and options. 

e Continually updated information on prices and 
basic news stories incorporating market com- 
mentary and statistics. 

e Specialized reports on commodities, today’s 
economy, and implications for the future. 

e Financial commentary from the nation’s leading 
news publications. 


Alternatively, companies such as Standard & 
Poor offer market statistic updates sent periodi- 
cally on floppy disk. The S&P package costs about 
$500 per year and provides monthly updates of 
some 100 types of basic financial data, ranging from 
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+i 


x 
x 


_F=P(1 +i" 


oe a a 


Table 2-1. Look-up 
Table of Financial Formulae. 


oy eas 


aq+if-1 
i 


oe 
1—(+,)"" 


sales to assets, for about 1,500 publicly traded 
companies. 

Other databases specialize in business 1In- 
formation and can supply text of leading industry 
newsletters, with extensive search and indexing 
capabilities. The NewsNet Network, 945 Haver- 
ford Road, Bryn Mawr, PA 19010, for instance, 
provides full text of over 125 business newsletters 
in the following areas: 


advertising and marketing 

aerospace 

automobile industry 

behavioral sciences and social services 
corporate communications 

education 

electronics and computers 


energy 

entertainment and leisure 
environment 

farming and food 

finance, accounting, and taxes 
general business management 
government regulations and law 
international affairs 
investments 

labor 

metals and mining 

office automation 

politics 

publishing and broadcasting 
real estate 

politics 

telecommunications 
transportation 


Interest calculations. The microcomputer 
can be used to calculate simple, compound and true 
interest. A program could be written to calculate 
the exact number of days between two dates, and 
number of months, days, and years in the interest 
period: leap years would be accounted for. The 
following formula would be used: 


Z cpd 
~ 100 360 


where 1 = interest on the capital 

= capital, invested or borrowed 
rate of interest 

= number of days 


ooo 
lI 


Compound interest can also be calculated. 
Given three of the four variables F, P, i, andn, the 
fourth may be solved for using equations 1, 4, 7, or 9 
in Table 2-1. 

The true interest is calculated as follows: 

24 


m Ee (m + 1) 


where R = the true interest rate 
F = finance charge 

m = number of months 
monthly installment 


— 
\| 


m 


The BASIC program in Listing 2-5 computes 
the true annual interest rate. An ideal application 
involves evaluation of installment loans. 


Listing 2-5: The True Annual Interest Rate Program 
5 PRINT CHR$(147) 


10 PRINT 
20 PRINT 
25 PRINT 
30 PRINT 
35 INPUT 
40 INPUT 
5O INPUT 
60 INPUT 
70 PRINT: PRINT 

80 IF C=1 THEN 680 
90 IF C*A>=B THEN 
PRINT: PRINT 


"FOR USE WITH INSTALLMENT LOANS" 


"ENTER THE AMOUNT OF THE LOAN" 
"WITHOUT INTEREST" ;B 


150 


PRINT 

INPUT "PRESS 'RETURN' WHEN READY": A$ 
GOTO 10 

E=0:F=100 

GOSUB 260 

IF A=G THEN 360 

IF A>G THEN 220 

E=E-F:GOTO 230 


"TRUE ANNUAL INTEREST RATE COMPUTATION" 


"ENTER THE AMOUNT OF EACH PAYMENT"SA 
"ENTER THE TOTAL NUMBER OF PAYMENTS";C 
"ENTER THE NUMBER OF PAYMENTS PER YEAR";D 


PRINT "THE PAYMENTS SUM TO LESS THAN THE AMOUNT OWED"; 
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220 E=E+F 

230 F=F/2 

240 IF F<.0001 THEN 360 
250 GOTO 160 


260 H=E/(100*D) 


270 J=H+1 

280" LF G*J<=7>: THEN. 3.0 

290 G=B*H 

300 RETURN ‘ 4 

310 IF G>1 THEN G=B*J°C*H/(J°C-1):GOTO 320 

315 G=B/C 

320 RETURN 

360 E=.01* INT(.05+100*E) 

370 IF E<199.5 THEN 430 

380 PRINT 

390 PRINT "THE INTEREST RATE IS TOO HIGH;RE-ENTER" 
420 GOTO 10 

430 PRINT:PRINT "TRUE ANNUAL INTEREST RATE="3E;"'2" 
440 PRINT: PRINT 

450 PRINT “ENTER 'QUIT' WHEN FINISHED OR" 

455 INPUT "PRESS RETURN TO CONTINUE"; A$ 

457 IF A$="QUIT" THEN END 

460 GOTO 10 

680 E=(A/B-1)*D 

690 E=100*E 


700 GOTO 360 


Minimum investment for withdrawals. 
This formula may be used to determine the 
minimum investment required to allow regular 
withdrawals of a given amount over a given time 
period, assuming compounded interest with each 
withdrawal and an ending balance of $0. A retiree 
might use this formula to compute the amount to 
invest in a savings account at 6 percent interest to 
provide monthly withdrawals of $100.00 for 10 


years. 
ReN 1 
P=— {1 —- ———— 
1 (1 + i/N)N* 


where P = initial investment 
R = amount of regular withdrawal 
1 = nominal interest rate 
N = number of withdrawals per year 
Y = number of years 


Mortgages 
The computer can be very useful to the home 
buyer in simplifying the many financial options 
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available. You can use your computer to determine 
mortgage payments based on the interest rates 
available, the length of the life of the mortgage, and 
the amount. With recent swings in interest rates, 
knowing what you will be paying at any given inter- 
est can be very important; a difference of a half or 
one percent can be substantial. This information is 
also important in budget planning—in determining 
how much of the family income must be allocated to 
mortgage or loan payments. You can do a “What 1f?” 
analysis; that is, if interest rates are predicted to 
decline by 3% next year, is it best to buy or wait? 
With your microcomputer and the financial for- 
mulae outlined in Table 2-1, the financial ramifica- 
tions of home buying or other investments can be 
easily determined. 

It may be worth your while to analyze a 
mortgage agreement on your computer before 
signing any contracts. A yearly amortization pro- 
gram could calculate a schedule of payments, the 
annual debt service, the mortgage constant, the 
remaining balance, the payment to principal, the 
payment to interest, the accumulated principal, and 
the accumulated interest for each year. A general 


Listing 2-6: The Mortgage Schedule Program 


10 PRINT CHR$(147):REM CLEAR SCREEN 

100 PRINT "MORTGAGE SCHEDULE CALCULATION" 
110 PRINT "BASED ON MONTHLY PAYMENT" :PRINT 
120 DIM A(3),B(3) 

140 PRINT 
145 INPUT 
150 INPUT 
160 INPUT 
170 Bl=12#*X 

180 X1=X1/1200 

190 B2=B¥X1/(1-(1/(1+X1))*B1) 
200 T=0 

210 
220 
230 
240 
25 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
355 
357 
359 
360 
370 
380 
400 
410 
420 
430 
440 
LL5 
450 
460 
470 
480 
500 


"MORTGAGE" ; X 


PRINT "MONTHLY PAYMENT IS $'"3B2 
PRINT 

PRINT "PRINCIPAL", , "INTEREST", "TOTAL" 
PRINT "YR PAID REMAINING 

FOR [=1 TO X 

FOR J=1 TO 12 

T=T+B2 

B(1)=A(3)*X1 

A(1)=B2-B(1) 

A(2)=A(2)+AC1) 

A(3)=A(3)-AC1) 

B(2)=B(2)+B(1) 

B(3)=B(3)-B(1) 

NEXT J 

PRINT I;" "3:FT=A(2):GOSUB 400 
PRINT ' '"::FT=A(3):GOSUB 400 
PRINT " ''s:FT=B(2):GOSUB 400 
PRINT " "::FT=T:GOSUB 400:PRINT "" 
NEXT I 

PRINT 
END 
FT$=STR$(FT) 

FOR N=l TO LEN(FT$) 

PRINT MID$(FT$,N,1); 

IF MID$(FT$,N,1)="." THEN 450 
NEXT 

PRINT ''.00"::GOTO 500 
L=LEN(FT$ )-N 


IF L<l THEN 445 
RETURN 


amortization program could solve for the following 
additional factors: the number of payments to reach 
a certain balance, the payment amount, the annual 
percentage rate, and the principal amount. Listing 
2-6 is a sample mortgage schedule program. 
Special programs could calculate the above 
values for wraparound mortgages and determine 


"ENTER THE NUMBER OF YEARS OF THE" 


"ENTER THE YEARLY INTERST RATE"; X1 
"ENTER THE AMOUNT OF THE MORTGAGE";B 


B(2)=0:B(1)=0:B3=B2*B1-B:A(2)=0:A(3)=B:A(1)=0 


PAID", "PAID" 


IF L>=2 THEN FOR P=1 TO 2:PRINT MID$(FT$,(N+P),1);:NEXT 
IF L=1 THEN PRINT MID$(FT$,(N+1),1);"O"::GOTO 500 


the price and yield of discounted mortgages. 
Loans 
An amortization schedule for a loan as well as 
the time required for repayment can be calculated 
by the loan amortization program in Listing 2-7. 
Here is a sample run showing how this pro- 
gram functions. 
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LOAN AMORTIZATION SCHEDULE 


PRINC 
#OF P 


IPAL=$4800.00 
ERIODS=12 


INTEREST RATE=5.6% 


PAYMENT REMAINING MONTHLY 
NUMBER PRINCIPAL PAYMENT 
1 4410.16 412.24 
2 4018.51 412.24 
3 3625.02 412.24 
4 3229.70 412.24 
5 2832.54 412.24 
6 2433.52 412.24 
7 2032.64 412.24 
8 1629.89 412.24 
9 1225.26 412.24 
10 818.74 412.24 
11 410.32 412.24 
12 0.00 412.24 
OVERALL TOTALS $4946.84 


Listing 2-7: The Loan Amortization Program 


10 PRINT 


20) :P 
J0r 
40 P 
50 I 


Q 
G 
7 1 
P 
I 
I 


50 


RINT 
RINT "LOANS": PRINT 
RINT “SELECT: 1)PAYMENT AMOUNT CALCULATION" 


N A GOTO 70,2000 
OTO 40 

NPUT "ENTER THE AMOUNT OF THE LOAN"; AM 
RINT "ENTER THE NUMBER OF PAYMENTS" 
NPUT "(USUALLY YRS*12)"5N 

NPUT "ENTER THE ANNUAL INTEREST RATE": 1 
B=1/1200 

C=N 

PRINT "ENTER THE MONTH OF THE FIRST" 
INPUT "PAYMENT (1-12)";M 

INPUT "ENTER THE YEAR OF FIRST PAYMENT'SY 
D=1:FORX=1 TO C 

D=(1+B)*D 

NEXT X 

D=1/D:F=B/(1-D)*AM 

G=F:GOSUB 5000 

F=G 

H=Y:J=1:L=AM:K=M-1:E=0:P=0 

PRINTCHR$( 147) 

PRINT "AMORTIZATION TABLE" 

PRINT "MONTHLY PAYMENT: $":F 


PRINT "AMOUNT OF LOAN: $''3TAB(14)AM;TAB(24);"INTEREST RATE="31; 


CHR$(147)TAB(5)"LOAN AMORTIZATION CALCULATOR" 


NPUT 2)TIME OF PAYMENT CALCULATION";A 


PRINCIPAL 
PAYMENT 


389.84 
391.66 
393.48 
395.32 
397.16 
399.02 
400.88 
402.75 
404.63 
406.52 
408.42 
410.32 


$4800.00 


INTEREST 

PAYMENT 
22.40 
20.58 
18.75 
16.92 
15.07 
13.22 
11.36 
9.49 
7.61 
5.72 
3.82 
1.91 


$146.84 


260 IF S=O THEN PRINT:GOTO 280 

270 PRINT "TERM+";N;"MONTHS" 

280 PRINT "PAYMENTS #"3J;"TO ";J+9 

290 PRINT "DATE  INTEREST","PRINCIPAL BALANCE" 
300 FOR X=J TO J+9 

310 K=K+1 

320 IFK=13 THEN K=1:H=H+1 

330 A2=L*B:G=A2 

340 GOSUB 5000 

350 A2=G:S=F-A2:G=S 

360 GOSUB 5000 

370 S=G 

380 L=L-S:G=L 

390 GOSUB 5000 

400 L=G:P=A2+P:E=S+E 

410 PRINT K;"/"3H;:FT=A2:GOSUB 6000:FT=S:GOSUB 6000:FT=L:GOSUB 6000:PRINT '"" 
420 IF J=C-1 THEN 600 

430 J=J+1 

440 NEXT X 

450 G=P 

460 GOSUB 5000 

°470 P=G 

480 PRINT "TOTAL INTEREST $";P;"TOTAL PRINCIPAL $"3E 
490 INPUT "PRESS RETURN TO SEE NEXT PAGE"; A$ 

500 GOTO 210 

600 A2=B*L 

610 G=A2:GOSUB 5000 

620 A2=G:S=L:A3=F: F=S+A2:K=K+1 

630 IF K=12 THEN K=1:H=H+1 

640 L=L~S:J=J+1:E=S+E: P=P+A2 

650 PRINT K3:FT=A2:GOSUB 6000:FT=S:GOSUB 6000:FT=L:GOSUB 6000:PRINT '"" 
660 PRINT "TOTAL INTEREST TO DATE=$"'';P 

670 PRINT "TOTAL PRINCIPAL TO DATE=$";F 

680 PRINT "FINAL PAYMENT=$";F 

690 G=F:GOSUB 5000 

700 F=G:F=A3 

710 INPUT "PRESS RETURN WHEN READY"; A$ 

720 GOTO 30 

2000 PRINT CHR$(147) 

2010 INPUT "ENTER THE AMOUNT BORROWED";B1 

2020 INPUT "ENTER THE INTEREST RATE/YR"3B2 

2030 INPUT "ENTER THE MONTHLY PAYMENT" SE 

2040 INPUT "ENTER THE MONTH PAYMENTS BEGIN (1-12)'"5M 
2050 INPUT "ENTER YEAR OF THE BEGINNING PAYMENT";Y 
2060 B3=B1*B2/1200-E 

2070 IF B3<=0 THEN 2130 

2080 PRINT: PRINT: PRINT: PRINT 

2090 PRINT'THE MINIMUM PAYMENT=$"; :FT=B1*B2/1200:GOSUB 6000:PRINT "" 
2100 INPUT "CONTINUE (Y/N)"s3A$:IF A$="Y" THEN GOTO 40 
2105 END 

2130 B=1-B2/1200*B1/E 

2140 X=B:GOSUB 4000 

2150 B=R 

2160 F=1+B2/1200 

2170 X=F:GOSUB 4000 

2180 F=R 

2190 J=-(B/F) 

2200 PRINT 


2210 IF B3=0 THEN PRINT''PAYMENTS COVER INTEREST ONLY':GOTO 2230 
2220 PRINT "NO. OF MONTHS FOR PAYMENTS="3J 

2230 H=INT(J/12):N=J-H*12 

2240 IF N>1 THEN N=N+1 

2250 N=INT(N):C=12*H+N 


IF N>11]1 THEN H=H+1:N=N-12 
IF B3=0 THEN S=0:GOTO 2290 


2260 
2270 
2280 
2290 
2300 
2310 
2320 
2325 
2330 
4000 
4010 
4020 
4030 
5000 
5010 RETURN 

6000 FT$=STR$(FT) 

6010 FOR W=1 TO LEN(FT$) 

6020 PRINT MID$C(FT$,W,1); 


PRINT: PRINT: PRINT 

INPUT "PRESS RETURN TO CONTINUE"; A$ 
J=N:B=B2/1200: F=E:N=N+1 2*H: AM=B1:R=B2 
F=F/B3 

PoE 2 t=B2 

GOTO 180 

AM=(X-1)/(X+4+1) 

C=AM43 


RETURN 


6030 IF MID$(FT$,W,1)=""." THEN GOTO 6050 
6040 NEXT 
6045 PRINT ".'';:GOTO 6080 


6050 
6060 
6070 
6080 
6090 
6100 
6105 
6110 


FOR Q=(W+1)TO(W+2) 
PRINT MID$(FT$,Q,1); 
NEXT 

Z=LEN(FT$)-W 

IF Z<1 THEN PRINT "OO": 
IF Z=1 THEN PRINT "0"; 
PRINT" "'; 

RETURN 


Loan with points. Poits are a percentage of 
the value of a loan that is paid at the start of the loan 
period. Theoretically, the seller pays the points, 
but in practice it does not matter who pays—the 
price of the house increases with the addition of 
points. 

One point represents one percent of the 
mortgage value. It must be paid at the beginning of 


G=INT((G-INT(G) )*100+.50001)/100+INT(G) 


PRINT'="3H;"YEARS+";N; "MONTHS TO PAY LOAN" 


R=2*( AM+1/3*C+1/5*AM42*C+1/7*C42* AM+1 /9*C 4341/11*C43*AM 42 ) 


the loan. The important question to consider is how 
does the addition of points affect the annual per- 
centage rate actually being paid for the loan? The 
program in Listing 2-8 will calculate this value 
given the number of points, amount of the loan, 
years, and annual percentage rate of the loan. It 
outputs the value for monthly payments and true 
annual percentage rate. 


Listing 2-8: The Loan with Points Program 


10 PRINT CHR$(147)TAB(50)"LOAN WITH POINTS" 


20 PRINT "ENTER LOAN AMOUNT, NUMBER OF POINTS" 


25 INPUT L,P 


30 PRINT "ENTER ANNUAL PERCENTAGE RATE, YEARS" 


35 INPUT A,Y 

40 P=P*,.01:A=.01*A/12:Y=Y*12 

50 R=L¥*((A*(A+1)4Y)/(CA+1)4Y-1) ) 
60 PRINT "MONTHLY PAYMENT--$";R 
70 FOR D=1 TO 100 


52 


75 REM 4 MEANS TO RAISE TO A POWER 


80 F=.0001*D+A:X=(1-P)*L*( (F*(14F)4Y)/(C1+F)4Y-1)) 


90 IF X>R THEN 110 


100 NEXT D:PRINT "PROGRAM UNABLE TO CALCULATE VALUE':END 


Direct reduction loan. The payment, 
present value, or number of time periods for a 
reduction loan may be calculated by using equations 


2, 8 and 11 in Table 2-1. 


Additional loan formulae. Here are some 
more formulae that you will find useful when you 


are dealing with loans. 
e Principal on a loan 


Re N 1 
p=—-——-. -——_— 
i (1 + i/N)N* 


where P = principal 
R = regular payment 
1 = annual interest rate 
N = number of payments per year 
Y = number of years 


e Regular payment on a loan 


eeEcN 


i (= +1) ik 
N 


where R = regular payment 
i = annual interest rate 
P = principal 
N = number of payments per year 
Y = number of years 


R= 


® Term of a loan 


Pej 
lo (1 - 
: ~ 2 


1 
] Lae 
on ( . 


where Y = term of payment in years 
P = principal 


= 
N 


110 PRINT "ACTUAL ANNUAL PERCENTAGE RATE="3F*1200:"%":END 


1 = annual interest rate 
N = number of payments per year 
R = amount of payments 


Depreciation Calculations 


Standard, composite, and excess deprecia- 
tions may be calculated with the following methods: 


1) Straight line depreciation 


D=PV/n 
B. =PV—kD 


2) Sum-of-the-years-digits depreciation 
Se =k). 


B= A 


2 (n—k +1) PV 


n (n+ 1) 


3) Variable rate declining balance depreciation 


k 


R 

D = PV— (1 - R/n) *? 
Nn 

B = PV (1-R/n) “ 


In each of the above depreciation formulas, 


PV = original value of asset (less salvage value) 
n = lifetime number of periods of asset 
B. = book value at time period K 
D = each year’s depreciation 
k =the number ofthe time period (that ts, 1, 2, 3, 
pat) 
S salvage value 
R = depreciation rate 
D. = depreciation at time period k 


The program in Listing 2-9 can be used to 
compare depreciation methods. 
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10 PRINT 


20 INPUT "ENTER PURCHASE COST";C 
30 INPUT “ENTER LIFE IN YEARS";L 
40 INPUT "ENTER SCRAP VALUE";S 

60 B=C-S:D1=B/L:M=( (L+1)/2)*L: F=L 


65 PRINT 
67 PRINT "YEAR" ,"SL" "pp", "SD" 

70 FOR X=1 TO L:D2=B*(F/M):F=F-1 
D3=2*C/L:C=C-D3 

PRINT X,INT(D1),INT(D3) ,INT(D2):NEXT X 


Here are some sample results from the depre- 
ciation program. 


YEAR STRAIGHT DOUBLE SUM OF 
NO. LINE DECL. DIGITS 
1 $ 1250.00 $$ 2750.00 $ 2000.00 
2 $ 1250.00 $ 1375.00 $ 1500.00 
3 $ 1250.00 $ 687.50 $ 1000.00 
4 $ 1250.00 $ 343.75 $ 500.00 


The actual depreciation rate for an investment 
is computed with the formula. 


: 1/age 
depreciation _ , resale price ° 
male original price 
and may be used to answer queries such as “If a car 
was bought for $9000 and sold three years later for 
$5100, what was the depreciation rate?” 


The salvage value of an item at the end of a 
given year may be calculated with the formula 


S = Pu =4)" 


where S = salvage value 
P = original price 
1 = depreciation rate 
Y = age in years 


Annuities 


Given the values of the required variables as 
input data, an annuity program could calculate the 
remaining variable in any of the following situa- 
tions: 


e Sinking funds—a sinking fund is an annuity in 
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Listing 2-9: The Depreciation Method Comparison Program 
CHR$(147):PRINT "DEPRECIATION METHOD COMPARISON" 


"KEY: SL=STRAIGHT LINE; DD=DOUBLE DECL; 


SD=SUM OF DIGITS" 


which a future value is accumulated by making 
equal payments at equal intervals at a certain 
interest rate. The value can be computed using 
equation 10 in Table 2-1. 

e Annuity due—the future or present value can be 
calculated using equations 8 and 10 in Table 2-1. 

e Ordinary annuity—This value may or may not 
include a balloon payment. Again, use equations 
2, 8, and 11 in Table 2-1. 


Bonds and Warrants 


A useful, simple program could be written to 
determine the value of both short and long term 
warrants. Given present value, coupon interest, 
yleld to maturity, and maturity value or the number 
of periods (three values out of the four), a computer 
program can compute the remaining term. Taxes, 
commissions, and current yield could also be de- 
termined. The formula used to calculate the present 
value (cost) of a bond with annual coupons 1s as 


follows: 
1 — (1 + i/cy® \ 1000 er72) 
Price = ——__—_—___—— 
i/c 
+ [(1+i/c)"" (1000)] 
where 1 = discount rate as % 


= number of years to maturity multi- 
plied by 2 
Cr = coupon rate of bond 
c = number of compounding periods per 
year 


The formula used to calculate the bond yield of 
an annual coupon is as follows: 


POaB VN). =1B VO: 


n 
(B.V.), + (B.V.) 
2 


where j = nominal yield rate 
(B.V.), = original bond value 
(B.V.) = bond at n years 
= face value 
g = nominal dividend rate 
n = number of years 


PERSONAL ACCOUNTING 


There are a number of ways in which your 
personal computer can help you manage your per- 
sonal finances more effectively. The computer can 
help you deal with everything from credit card pay- 
ments to income tax calculations. 


Personal Accounts Receivable/Payable 


A personal AP/AR program similar to a busi- 
ness AP/AR program could manage a large portion 
of your financial affairs. The program could include 
these features: 


1. A checking and savings account management 
program to enable you to maintain the current 
balance of your checking and savings accounts. 
Interest credits could be calculated and added. A 
file of each check (with its number, purpose, 
notes, amount, and payee) could be stored for 
later income tax preparation. Specialized re- 
ports could be generated from this check file 
including a check register for a specified time 
period, the distribution of expenditures, and 
statements of selected accounts. The ideal pro- 
gram would request all information concerning 
each check written, store this information, and 
print the check itself. 

2. A budgeting program to keep you up to date on 
expenditures in various areas so that income can 
be allocated appropriately. A plan for family 
spending could take the following format: 


Set-asides 
Emergencies and future goals 


Seasonal expenses 
Debt payments 
Regular monthly expenses 
Rent or mortgage payment 
Utilities 
Installment payments 
Other 
Total 
Day to day expenses 
Food and beverages 
Household maintenance 
Furnishings, equipment 
Clothing 
Personal 
Transportation 
Medical care 
Recreation, education 
Gifts, contributions 
Total 


Total of all expenses 


Alternatively, you could take realistic esti- 
mates for the upcoming year and enter these 
figures. A program could use this information in 
computing the percentage of gross income that each 
item requires. As a rule of thumb, housing should 
cost no more than one fourth of your gross income. 
(This is an example of one of the budgeting princi- 
ples discussed in most references concerning fam- 
ily budget preparation.) The home computer re- 
moves the drudgery of manual calculations for those 
determined to stick to a well-planned budget. 

On command, a budget program could print 
month-to-date figures and an end-of-month com- 
parison of budget versus actual expenses. It can 
also show the amount of cash needed to meet 
budgeted expenses for the rest of the month. It 
could also maintain tax records, keep a running 
balance of cash on hand, keep an inventory of your 
possessions, and even help in planning weekly 
menus. 

Table 2-2 shows a portion of a personal budget 
report that indicates where the money has been and 
will be spent in spreadsheet fashion. Such spread- 
sheets, besides being a personal planning benefit, 
are often useful when securing a personal loan. 
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Table 2-2. A Portion of a Personal Budget Sheet in Spreadsheet Form. 


ACTUAL FOR 
JOE SMITH 
OCT. 8, 1982 


EXPENSE 


RENT 

FOOD 

CLOTHES 

UTILITIES 

CREDIT CARD INTEREST 
ENTERTAINMENT 
GASOLINE 

MORTGAGE INTEREST 
MISCELLANEOUS EXPENSE 
CAR EXPENSES 


TOTAL EXPENSE 


NET INCOME 
3. A financial behavior determination program to Medical 7% 
help you analyze your expenditures and sum-_ All other 4% 
marize your spending in various areas (the 
categories of the budget above) that would be Families differ, but how do your own expenses 
useful in preparing a budget plan. correspond to these percentages? 

According to the experts at the U.S. Dept. 4. A file of unfulfilled contracts, mail orders, and so 
of Labor, a family of four should typically allo- on for which you have sent checks and yet have 
cate its spending as follows: received no reply. As replies are received, the 

appropriate accounts are removed from the file. 
Housing 24% 
Food 24% Daily Interest Passbook Savings Account 
Transportation 15% You can use the BASIC program in Listing 2-10 
Clothing, personal care 13% to maintain a savings account. The program has 
Taxes 13% provisions for interest, withdrawals, and deposits. 


Listing 2-10: The Daily Interest Savings Program 


1G FRIHTCHR 1470 7RHE 48o "DAILY [THTEREST FOR FASSEOOR SAYVIWGS" 
2e PRIA FR IMT UEMTER ee bee Fl: Piva eee AL es Pees. * 
we FRIET"WITHIRAWALS AS HEGATIVE MUMEBERS. " 
40 PRIM CEMHTER @ AT FIWRAL DATE TO COMPUTE THE THT ERE St” 
SS FROIN] " BUTRTeayareey ea mo AY EET” 
2 GETAF: IFAS" " THES 
118 PRIATOHR ES! 14P 3 
128 TMPUT"EHMTER THE AWWMUAL INTEREST IW nF 
128 =F “SARE 
146 PRINT SELECT: 1lOUSE Al TIAL. DAYS Th MOTH" 
128 TMPUT" USE GE DAYS FOR MOWTH" oD 
LEE Ge 
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Income Tax 


Preparation of income tax forms is a task that 
lends itself well to computers because computers 
are great orgaiu.zers and calculators, and they can 
save you time and money. Tax preparation pro- 
grams range from simple arithmetic calculators to 
complete personal accounting programs. In the 


most popular approach, the computer requests 
answers to such questions as, “What are your fed- 
eral withholding taxes?” You proceed to answer all 
the possible questions necessary to prepare a 1040 
tax form (approximately 50), but unfortunately you 
must first do considerable accounting and calculat- 
Ing to answer some of the questions. The program 
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completes the simple arithmetic for filling in the 
1040 form and prints the proper values in the boxes 
on the form. 

A more complex approach would involve the 
periodic storage of all elements of your finances on 
cassette or floppy disk (for example, each week you 
could store the names, addresses, purposes, num- 
bers, and amounts of all checks written or cashed. ) 
At years’ end, the computer would searchand group 
all relevant data and do all of the necessary calcula- 
tions. In this latter approach, a complete summary 
of all deductions, income, and so on could be printed 
categorically. References to the filed location of the 
original checks, bills, and receipts could be in- 
cluded for proof of the transactions. A warning 
could also be issued in the event that your deduc- 
tions exceed ten percent of your income (a tax audit 
would be likely). Provisions could be made to com- 
pare the taxes you would pay if you filed jointly with 
your spouse to what you would pay if you filed as an 
individual. 

A tax planning program can help cut your tax 
liability in the years to come. Investment decisions, 
personal financial decisions, and business decisions 
with tax consequences can all be analyzed in plan- 
ning a tax strategy. In a divorce, for example, the 
arrangement of a settlement can result in substan- 
tially less tax depending upon how the money 1s 
allocated between property settlement, alimony, 
and child support. A tax planning program can be 
used to quickly answer “what if?” questions during 
the negotiation of a settlement. The ease of chang- 
ing inputs and having the program recalculate the 
entire return can be a tremendous time saver. Ad- 
ditionally, complex calculations such as income av- 
eraging on Form G can be done automatically, 
perhaps yielding a bigger refund for those who pre- 
viously would not have attempted the calculations 
manually. A tax planning program in the form of a 
spreadsheet allows the simultaneous consideration 
of multiple cases covering different facts and years. 
The spreadsheet can include graphical representa- 
tions showing the impact of adding or subtracting 
income, deductions, or credits, and varying tax 
computations over a several-year period— 
including regular tax, alternative minimum tax, 


58 


add-on minimum tax, income averaging, and the 
consideration of limitations on the use of credits. 
For instance, you could consider the possibility ofa 
second income versus staying at home by having 
your computer program figure the after-tax results 
of that extra income, which is often discouraging. 
As another example, assume that you own a busi- 
ness and want to know if you should pay your wife a 
salary. Depending upon your income level, this may 
or may not be advantageous; a tax planning program 
could determine the best option for your income 
bracket. 

A recurring question among investors 1s “What 
are the sources of tax-free income whose yields are 
equal to or greater than yields provided by taxable 
investments?” Should you invest in tax-free bonds 
and other tax-free securities or place your money in 
a fully taxable bond, savings account, or treasury 
bill? (Remember, however, that you may wish to 
consider other factors, such as liquidity of assets.) 
The two formulas necessary to compute taxable and 
tax-free yields are given below. A simple BASIC 
program could compute these for a given situation 
and determine which alternative offers the better 
investment. 


taxable yield=tax-free yield/(1—federal tax 
bracket) 

tax-free yield=taxable yield*(1—federal tax 
bracket) 

For instance, if you are in the 35% federal income 
bracket, have invested in a money-market account 
at 8%, and are offered the opportunity to invest ina 
tax-free fund yielding 6.2%, which is the better 
investment? Using the second equation above, you 
find that the tax-free fund would be a better invest- 
ment at 6.2% versus 5.2% after taxes for the 
money-market account. A more sophisticated pro- 
gram could print a table of yields given the known 
tax-free or taxable yield starting value and the in- 
crement, and the starting value of the tax bracket 
and the increment. Investors in some states are 
allowed tax exemptions for qualifying tax-free in- 
vestments. In this situation, simply add the 
exempted state tax rate to the federal tax rate when 
entering your tax bracket value. 


Home Banking 


You may soon be able to do your banking from 
home with a personal computer. Many banks are 
conducting pilot home-banking studies and are be- 
ginning to sell such services to depositors. These 
include the major banks listed below: 

Central Trade Bank of Memphis, Memphis, 

TN 

Citibank, New York, NY 

First Tennessee Bank, Knoxville, TN 

Huntington National Bank, Columbus, OH 

Shawmut Bank of Boston, Boston ,MA 
With most of these services, a customer dials the 
bank’s central computer or uses one of the 
timesharing networks, such as CompuServe, 
through his modem. After providing a secret 
password, the customer can, for instance, ask for a 
list of recent deposits and pay bills directly by 
transferring money from his account to those of his 
creditors. Banks charge from $5 to $15 per month 
for this service. 


Retirement Planner 


The formulas given below, translated into 
BASIC statements, will calculate how much initial 
capital you need to financially survive a given 
number of retirement years at a given standard of 
living. Inflation and return on invested capital are 
accounted for. By using a BASIC program, you 
could quickly determine the effect of changes on 
these and other variables. You can use this infor- 
mation in deciding whether or not you can afford to 
retire. 


S=(EXP(I*N))*(T+(F*(1—-EXP(—J*N))/J)—(E* 
(EXP(—J)*N)—1)/d—J))) 


T=(E*((EXP(I—J)*N)-—1)/d-—J))—((F*1-EXP 
(—J*N)))/J), for I not equal to J 


T=(N*E)—(F*((1—EXP(—J*N))/J)), for I equal to J 


where N = number of years after retirement for 
which financial survival is planned 
S = Investment capital remaining after N 
years 


T = Initial capital 

F = Annual fixed (after tax) income 

E = Initial excess living expense 

I = Annual average inflation rate 

J = Annual after-tax return on investment 


MONEY-MAKING APPLICATIONS 


There are many ways to use your microcom- 
puter to make money; you might consider starting a 
part-time or full-time business based on one of the 
following ideas. 


Stock Market 


One “hobbyist” is deriving his income from his 
stock prediction newsletter that 1s composed of 
market predictions determined using “twelve con- 
fidential indicators” on his home computer. In 
similar fashion, you could experiment with math- 
ematical analysis of the stock market using the 
statistical methods outlined earlier in this chapter. 
A personal computer could also serve to maintain 
stock portfolios and organize or correlate market 
predictions and stock recommendations to ease de- 
cision making. With the proliferation of financial 
databases available through the use of a modem, 
information on stock prices, market performance, 
and so on could be entered automatically to a stock 
analysis program designed to scan the entire mar- 
ket, stocks of a given industry group, or particular 
stocks. Financial data bases may also be scanned to 
provide historical data or the latest news reports on 
selected corporations. 

The home computer is certainly useful in 
mathematical analysis and data storage for other 
forms of financial investment, including stock op- 
tions and commodities. An options analysis pro- 
gram was presented earlier in this chapter and 
should serve as a good starting point for newcomers 
in computer application to the options market. 
Again, use of financial databases accessable via 
modems permits the automatic input of data to your 
analysis program. The commodities trader will 
probably find the personal computer to be a boon in 
organizing and obtaining information in the fast 
moving and volatile commodities market and in 
allowing trading from the home for the first time. 
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Services 


The home computer owner Is in the position to 
offer the following services. 

Mailing lists. A mailing list of people in your 
area could be used by local firms with direct mail 
campaigns. The mailing list could be compiled from 
area phone books, association directories, and so 
on, entered into your computer, and stored perma- 
nently on floppy disks. The list may be printed on 
adhesive labels and sold to local businesses. The 
advantage of being a local business serves to elimi- 
nate competition from large mailing list brokers in 
other cities. 

Resumes. People in all metropolitan areas 
can use a resume preparation service to write, 
type, and mail resumes to potential employers. A 
computer word-processing system could automate 
this business almost entirely. 

Typesetting, indexing, and editing. All 
businesses and organizations can use a printing 
preparation enterprise for typesetting and editing 
promotional material. Small computers interfaced 
to IBM composers, executive typewriters, DI- 
ABLO proportional printers, laser printers, or con- 
ventional typesetting equipment can produce ex- 
cellent justified and camera-ready material for 
printing. The cost savings of using a computer will 
allow the entrepreneur to offer lower prices for 
such services and ensure greater accuracy. Addi- 
tionally, an indexing service using a simple com- 
puter program to create book or magazine indexes 
could provide a valuable service to small publishing 
firms. 

Home swap and rental locator services. 
The practice of swapping one’s home with other 
people during vacation time 1s becoming popular. A 
service that used a computer to categorize homes 
available and homes wanted could profit by pub- 
lishing a newsletter of listings. 

A rental locator service categorizes homes and 
apartments for rent from classified newspaper ads 
or other sources. In metropolitan areas, where 
finding an ideal home to rent is a difficult task, a 
service to match people with the right living condi- 
tions at the right price would be useful. In a similar 
manner, a service company could match people 
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with cars for sale by the owners. 

One entrepreneur has developed a com- 
puterized bartering service for matching needs and 
services of those in high income tax brackets for the 
purpose of mutual tax write-offs. He charges a small 
fee for successful bartering arrangements. 

Finder’s fees. A finder’s fee is asum of money 
paid to someone who finds something wanted by 
another person who is willing to offer an award for 
it, be it business opportunities, products, or rare 
items. Usually, finder’s fees are expressed as a 
percentage of the amount of money involved in 
purchasing the item to be found. A few organiza- 
tions publish newsletters listing finder’s fee op- 
portunities. A hobbyist could computerize hun- 
dreds of listings for future reference and could cor- 
relate the need of buyers with the offerings of 
sellers. 

Telephone answering message service 
and newspaper clippings service. Telephone 
answering services of sufficient size can use a small 
computer to increase efficiency and lower costs. A 
newspaper clipping service, which clips articles of 
interest to paying clients, could use a computer to 
keep track of the varied categories to search for. 

Computer dating service. Popular a few 
years ago, computer dating services could make a 
return appearance, especially in metropolitan 
areas. 

Sports predictions and gambling. An en- 
terprising hobbyist uses his computer to predict 
college football scores. The information produced 
is sold as “CLYDE the computer” sports forecasts 
to television stations for use on local news broad- 
casts. Other entrepreneurs have used computer 
predictions of sporting events to publish flyers that 
are sold at dog and horse races. It would be silly to 
deny that personal computers have also found wide- 
spread application in illegal gambling circles for the 
analysis of point spreads and historical perfor- 
mance, and for bookkeeping! 

Employment agency. The computer could 
be useful to an employment agency in matching the 
right people with the right jobs. The use of the 
computer may also serve to increase business in 
itself. 


Small business systems and software. 
Many hobbyists have turned personal computers 
into a profitable sideline business by selling 
packaged computer systems with accounting, word 
processing, and spreadsheet software to small 
business and offering technical support and train- 
ing. You could also create personalized programs 
including databases and mailing lists on a freelance 
basis for firms with small computers. 

Collection service. A word-processing 
computer system could automatically output per- 
sonalized collection letters, which theoretically 
generate greater response. Thus, a low-cost col- 
lection service charging a flat rate or a percentage 
of the money collected would be an excellent side- 
line business for the computer hobbyist. 

Word Processing. A word-processing ser- 
vice can be employed by businesses to prepare 
typewritten personalized sales letters. Such a busi- 
ness would be almost totally automated by a small 
computer. 

Bowling league bookkeeping. A few hob- 
byists have sideline businesses that calculate 
bowling league scores and handicaps for ten to 
thirty cents per player per week. This cost 1s usu- 
ally less than the costs for hiring a person to do the 
bookkeeping. 

Supermarket comparison service. A hob- 
byist turned businessman uses his personal com- 
puter to collect and compare price data for popular 
foods at local supermarkets and sells a listing of the 
most economical stores to shoppers. 

Personalized books. Children’s books con- 
taining a child’s name, address, and other per- 
sonalized information can be printed by a small 
computer economically. Studies show that children 
prefer reading personalized books over any other 
type of book, and there is a considerable demand for 
them. An enterprising hobbyist could develop a 
large-scale business along these lines. Perhaps a 
humorous personalized book could be sold for 
adults as well. 

Educational programs. You could form a 
distributorship to bring educational computer 
materials to schools, bookstores, and other institu- 
tions. The market for educational computer pro- 


grams 1s also growing. Popular tutorials could be 
developed concerning electronics, higher math- 
ematics, business and investments, computers, and 
an unlimited variety of other topics. 


Real Estate 


Possible applications for personal computers 
in real estate include the following: 

Residential purchase analysis. A useful 
program could calculate the total monthly payment, 
income tax deductions, and equity build-up result- 
ing from the purchase of a home. An own versus 
rent analysis could also be useful. 

General real estate investment analysis. 
By considering such factors as inflation and interest 
rates, mortgages, cash flow in percent growth re- 
turn, taxable income (tax shelter), and financial 
feasibility can be calculated. Income property re- 
ports and closing statements may also be gener- 
ated. 

Rental property management. A program 
designed for management of rental properties could 
store the following types of information for each 
property or chent: receipts, disbursements, gross 
income, calculated profit and loss, calculated return 
on investment, and calculated net income. 

Appraisal tabulator program. A program 
designed for the appraiser could organize and tabu- 
late variables and could determine an appraisal. 

Real estate evaluation. The program in 
Listing 2-11 is designed for use by a potential in- 
vestor in evaluating a piece of real estate, prefera- 
bly an apartment building. The program estimates 
the total monthly income, annual rate of return, and 
tax deductions based on such input data as cost, 
down payment on mortgage, estimated overhead 
costs, and income. 

First, here’s a sample run that will show you 
what information the program will request and what 
kind of results it will produce. 


ENTER THE PURCHASE PRICE OF THE REAL 
ESTATE? 75000 

ENTER THE MORTGAGE INTEREST (%) ? 
9.75 

ENTER THE MORTGAGE DOWN PAYMENT 
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AS A % OF PURCHASE COST? 10 

ENTER THE NUMBER OF YEARS IN THE 
LOAN TERM? 25 

ENTER THE CLOSING COST (% of PUR- 

CHASE PRICE)? 2 

ENTER MISCELLANEOUS INITIAL EX- 
PENSES AS ONE SUM? 100 

ENTER THE ESTIMATED INCOME PER 
MONTH FROM THE PROPERTY? 1125 

ENTER THE REAL ESTATE TAX FOR ONE 
YEAR? 1300 

ENTER THE ESTIMATED OVERHEAD COSTS 
(MAINT., UTILITIES, INSUR., ETC.)? 525 

FOR TAX DEDUCTION PURPOSES, ENTER 
THE EST. PROPERTY VALUE? 15000 

ENTER YOUR TAX BRACKET AS A&% OF 

YOUR INCOME? 40 

IS THE BUILDING ON THE PROPERTY NEW 

OR USED (‘N” OR “U")?.N 


TAX AND CASH FLOW ANALYSIS 


Listing 2-11: The Real Estate Evaluation Program 


MONTHLY EXPENSES $525.00 
MONTHLY TAXES $108.33 
MONTHLY MORTGAGE $601.52 
MONTHLY INCOME $1125.00 


MONTHLY CASH FLOW $109.85- 


TAX HEDGE: 


EXPENSES (YR. #1) $7650.00 
DEPRECIATION (YR. #1) $6000.00 
DEDUCTIBLE INTEREST $6581.25 
REAL ESTATE TAX (YEARLY) $1300.00 


TOTAL: (YR. #) $21531.30 

TOTAL INCOME (YR. #1) $13500.00 
NET DEDUCTION (YR. #1) )8031.25 
TAX ADVANTAGE (YR. #1) $3212.50 


RETURN ON INVESTMENT 18% 


10 PRINTCHR$(147)TAB(40)"REAL ESTATE PURCHASE EVALUATION PROGRAM" 
20 PRINT"THIS PROGRAM DTERMINES TAX ADVANTAGE " 


25 PRINT"AND CASH FLOW OF A PROSPECTIVE" 
30 PRINT"PURCHASE."': PRINT 

40 PRINT"ENTER THE PURCHASE PRICE OF" 
NPUT THE. REAL, ESTATE” $A 

NPUT"ENTER MORTGAGE INTEREST (4)"3B 
RINT'ENTER MORTGAGE DOWN PAYMENT AS" 
NPUT ''A PERCENT OF PURCHASE COST";C 
=B/100:C=C/100 


on 
wal 
FTO RH mR UW 


NPUT'PURCHASE PRICE)";E 

90 E=E/100 

100 PRINT’ENTER MISCELLANEOUS INITIAL" 
INPUT"EXPENSES AS ONE SUM":G 

110 PRINT"ENTER THE ESTIMATED INCOME PER" 
INPUT"MONTH FROM THE PROPERTY"3J 


NPUT "ENTER NUMBER OF YEARS IN LOAN TERM";D 
RINT"ENTER THE CLOSING COST (PERCENT OF" 


1.260:--ENPUT “ENTER THE REAL ESTATE ‘TAX FOR ONE: YEAR" $k 
130 PRINT"ENTER THE ESTIMATED OVERHEAD COSTS" 


INPUT" (MAINTAIN. , UTILITIES, INSURANCE, ETC. )''$L 


132 PRINT"FOR TAX DEDUCTION PURPOSES, ENTER THE" 


INPUT"ESTIMATED PROPERTY VALUE";M 


134 PRINT"ENTER YOUR TAX BRACKET AS A % OF YOUR" 


135 INPUT" INCOME" ;R7 


138 PRINT"IS THE BUILDING ON THE PROPERTY NEW" 


INPUT"OR USED (N/U)"3B$ 
140 X=B/12+1 
150 Y=Xa(12*D)*(X-1)/(X#(12*D)-1)*(A-C#A) 
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160 N=L+K/12+Y 

170 P=(A-C*A)*B 

180 IF B$="N" THEN Q=2:GOTO 190 

185 Q=1.25 

190 R=L+E*(A-C*A)/12 

200 R1=(A-M)/20*Q 

210 R2=K+R1+P+12*R-12*J 

220 R3=R7/100*R2 

230 R4=G+E*A+C*A-12*(J-N) 

240 R5=INT(100*( (J-N)*12+R3)/R4) 

250 PRINT CHR$(147) 

260 PRINT'TAX AND CASH FLOW ANALYSIS:" 
270 PRINT'"MONTHLY EXPENSES "3 

280 FT=L:GOSUB 1000 

290 PRINT'MONTHLY TAXES ee 

300 FT=K/12:GOSUB 1000 

310 PRINT'MONTHLY MORTGAGE "; 

320 FT=Y:GOSUB 1000 

330 PRINT"MONTHLY INCOME Ms 

340 FT=J:GOSUB 1000 

350 PRINT"MONTHLY CASH FLOW " 
360 FT=J-N:GOSUB 1000 

370 PRINT:PRINT 

380 PRINT"TAX HEDGE:" 

390 PRINT"EXPENSES (#1) " 
400 FT=12*R:GOSUB 1000 

410 PRINT "DEPRECIATION (YR#1) ". 
420 FT=R1:GOSUB 1000 

430 PRINT"DEDUCTABLE INTEREST (YR#1)"; 
440 FT=P:GOSUB 1000 

450 PRINT'REAL ESTATE TAX (YEARLY) "; 
460 FT=K:GOSUB 1000 

470 PRINT: PRINT" TOTAL: (YR. #1) ms 
480 FT=K+P+R1+R*12:GOSUB 1000 

490 PRINT'TOTAL INCOME (YR #1) ms 
500 FT=J*12:GOSUB 1000 

510 PRINT'NET DEDUCTION (YR #1) Me 
520 FT=R2:GOSUB 1000 

530 PRINT'TAX ADVANTAGE (YR #1) si 
540 FT=R3:GOSUB 1000 

550 PRINT:PRINT’RETURN ON INVESTMENT"; 
560 PRINT R5;"%" 

570 END 

1000 FT$=STR$(FT) 

1005 PRINT"$"; 

1010 FOR QQ=1 TO LEN(FTS) 

1020 PRINT MID$(FT$,QQ0,1); 


we 


1030 IF MID$(FT$,QQ,1)="." THEN GOTO 1050 
1040 NEXT 
1045 PRINT"."3;:GOTO 1080 


1050 FOR KK=(QQ+1) TO (QQ+2) 
1060 PRINT MID$(FT$,KK,1); 
1070 NEXT 

1080 LL=LEN(FT$)-QQ 

1085 TF LL>1 THEN PRINT" 
1090 IF LL<1 THEN PRINT "00" 
1100 IF LL=1 THEN PRINT "o" 


RETURN 
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Curve fit. A program to fit such data as land 
prices or construction cost per square foot to a 
curve may be used to make more accurate fore- 
casts, bids, and estimates. 

Internal rate of return and cash flows. 
One purpose of an internal rate of return and cash 
flow programs suchas the one in Listing 2-12 would 
be to calculate the net present value of a series of 
cash flows. In general, an investment, V is made 
in some enterprise that is expected to bring 
periodic cash flowsC,, ©,...C. Given a discount 


Listing 2-12: The Internal Rate of Return Program 


150 
160 
170 
175 
180 
190 
250 
260 
270 
280 
290 
300 
310 
320 
a2) 
330 
340 
360 
370 
380 
400 
410 
415 
420 
430 
450 
460 
470 
480 
500 
510 
520 
530 
550 
560 
570 
580 
590 
600 
630 
640 


DIM Y(10) 

PRINT"ENTER CURRENT COST OF HOUSE" 
INPUT HS 

INPUT "ENTER % RISE"; PH 

PH=PH/ 100 

PRINT'ENTER MORTGAGE INTEREST RATE" 
INPUT MR 

MR=MR/100 

PRINT"ENTER MORTGAGE DURATION IN YEARS" 
INPUT NY 

PRINT "ENTER DOWN PAYMENT" 

INPUT DP 


INPUT "PAYMENT"; IR 

TR=IR/100 

PRINT"ENTER CURRENT INCOME TAX RATE" 
INPUT TR 

TR=TR/100 

INPUT "ENTER % RISE"; PT 

PT=PT/100 


INPUT BC 
BC=BC/ 100 


INPUT SC 
SC=SC/100 

PRINT"ENTER REAL ESTATE TAXES TODAY" 
INPUT RE 

INPUT "ENTER % RISE''; PR 

PR=PR/100 


INPUT HM 

INPUT "ENTER % RISE"; PM 
PM=PM/100 

PRINT"ENTER APARTMENT RENT TODAY" 
INPUT AR 

INPUT "ENTER % RISE";PA 
PA=PA/100 

PRINT "ENTER APARTMENT UTILITIES" 
INPUT AU 
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rate, 1, the program will compute the net present 
value at period k, NPV for each cash flow. A nega- 
tive value for NPV indicates that the enterprise has 
not been profitable. A positive value for NPV, indi- 
cates that the enterprise has been profitable to the 
extent that a rate of return, 1, on the original in- 
vestment has been exceeded. 


k C 


} 


NPV =-V + 3 ——— 


PRINT CHR$(147)TAB(42)"HOME PURCHASE INTERNAL RATE OF RETURN": PRINT 


PRINT "ENTER RATE THAT COULD BE EARNED ON DOWN" 


PRINT" ENTER TRANSACTION COSTS TO BUYER IN %" 


PRINT "ENTER TRANSACTION COSTS TO SELLER IN 2" 


PRINT "ENTER UTILITY AND MAINTENANCE COSTS" 


INPUT"ENTER % RISE"; PU 
PU=PU/100 
P1=(HS+DP)/((1—(1+MR)4-NY) /MR) 
PRINT'YRS | INTERNAL RATE OF RETURN" 
FOR I=1 TO 10 

Y(0)=—DP-BC*HS 

B1=HS-DP 

FOR J=1 TO I 

Y(J)=-(DP*IR) 

Y(J)=Y(J)-P1 

T1=TR+PT*(J-1) 
Y¥(J)=¥(J)-RE*(1+PR)#(J-1) 
Y(J)=Y¥(J)-HM*(14+PM)a(J-1) 
Y(J)=Y(J)+AR*(14+PA)4(J-1) 
Y(J)=¥(J)+AU*(1+PU) 4(J-1) 


B1=B1-(P1-(B1*MR) ) 

NEXT 
Y(I)=¥(1)+HS*(1+PH)4#I-B1-HS*(1+PH)4I*SC 
HG=1 : LW=-1 

MN=(HG+LW) /2 

PV=0 

FOR J=O0O TO I 

PV=PV+Y(J)/(14+MN)4J 

NEXT 

IF (.05>PV) AND (-.05<PV) THEN 1000 
IF PV>O THEN LW=MN 

IF PV<=0 THEN HG=MN 

990 GOTO 920 

1000 REM 

1010 PRINT I,MN*100 

1020 NEXT 


BUSINESS DECISION MAKING 


The following computer applications can help 
you make the decisions that will optimize the way 
you run your business. 


Spreadsheets 


Most people have seen or worked with the 
traditional accounting ledger spreadsheet or work- 
Sheet. Typically there are descriptions along the 
left edge, month designations across the top of each 
column, and room for a totals column on the right. 
For budget preparation, each line could represent a 
budget category and have budgeted monthly 
amounts across the page. Each line and each 
month’s column are totaled. A change to a single 
number involves replacing a figure with a new one, 
and adjusting the affected column and row. This isa 
tedious procedure prone to error. Hence, you can 


Y(J)=¥(J)+( (RE*(14+PR)4(J-1) )+(B1*MR) )*(TR+PT*(J-1)) 


understand the tremendous benefits of a totally 
electronic spreadsheet. 

A spreadsheet program is a super calculator 
that provides you with a giant electronic grid that 
functions analogously to the traditional spread- 
sheet, as described above. When you change the 
values of numbers in the grid, the program au- 
tomatically calculates what effect, ifany, there 1s on 
all the other numbers. The spreadsheet can provide 
answers within seconds to all sorts of financial 
“what ifs.” For example, to qualify for the mortgage 
you want, how much income must you have? Or how 
would your portfolio value change with a half-point 
advance in a stock? 

The electronic spreadsheet may be as large as 
2,048 rows long by 256 columns high, depending on 
available memory. Formulas, equations, and al- 
gorithms may be input to provide comparisons, 
ratios, totals, and other information. 


65 


Who uses a spreadsheet program? Anyone 
who works with numbers might find a use for such a 
program. Obviously accounting is a primary area of 
application, but scientists, engineers, managers, 
executives, and members of almost any discipline 
use spreadsheets. How useful a spreadsheet 1s in a 
particular situation depends on the degree to which 
it increases productivity. Frequently, a spread- 
sheet user will get important answers that previ- 
ously were not cost effective to obtain. Anyone who 
needs more accurate and speedier calculations is a 
potential spreadsheet user. 

Spreadsheet programs are being used in an 
endless variety of applications. Some use it for 
solving simple or complex equations, others for 
normal calculator functions, and others as a com- 
plete decision support tool. Specific uses include 
financial modeling, budgeting, doing cash flow 
analysis, planning, making projections, making 
business plans, creating sales reports, doing 
what-if analysis, pricing, making cost estimates, 
tax planning, improving time management, per- 
forming chemical formulation, doing regression 
analysis, and analyzing structural design. Anything 
that can be done using a calculator can be done more 
easily and more extensively through the use of a 
spreadsheet program. 


Other Decision Making Computer Applications 


In addition to making the electronic spread- 
Sheet available as a decision-making tool, the mi- 
crocomputer enables you to use programs to guide 
you in making decisions in the following areas. 

Long and short term financing require- 
ments. A commercially available long term 
financing requirement calculation program could 
compute the cost of capital for various forms of 
funding (for example, common stocks, preferred 
stocks, and bonds,), select the cheapest form, and 
determine the amount needed to support operating 
plans. A short term financing requirement calcula- 
tion program could compute the amount and timing 
of short term financing based on sales forecasts, 
inventory purchases, and collection and payment 
policies. 

Breakeven analysis. Programs can be used 
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to compute breakeven points for projects or 

products based on fixed and variable costs and sel- 

ling prices; learning curves may also be applied. 
To breakeven the following must hold true 


PeK = FC + (VC*Q) 
where P = sales price of each unit 
K = quantity of units sold 
FC = fixed costs over the period in ques- 
tion 
VC = variable costs per unit produced 
Q = no. of units produced 


Inventory Control. The generalized inven- 
tory model known as the economic order quantity 
(EOQ) is an important part of the management of 
inventory. The formulae below may be used to 
compute the EOQ, the minimum inventory costs for 
a specified time period, and the number of times to 
order replacement stock during a period. 


EKOQ = 


EOQ 


where EOQ = the economic order quantity in 
units. 
= the minimuniinventory costs for 


the time period 


nun 


N= the number of times replace- 
ment stock should be ordered 
during the period 

Kk = the cost of placing and receiving 
each order 

L= the total number of units used 
during the period 

M = the cost of carrying one unit in 
inventory for the time period 

S = the “safety” quantity of stock to 


be held in inventory, to 
minimize the risks or losses in- 
volved in running out of a crucial 
part or item. 


Reorder timing. Programs can be used to 
compute the reorder point based on inventory car- 
rying costs, stockout costs, and demand variation. 

Facility scheduling. Programs can be used 
to compute job shop performance (average turn- 
around time, percent late, and so on) based on a 
variety of scheduling rules (for example, first in- 
first out, or most over-due items first) and on job 
processing times. 

Demand forecasting. Programs can be used 
to compute a forecast of future demand by expo- 
nentially smoothing past demand. 

Market and media research. Programs can 
perform many aspects of this kind of research, in- 
cluding questionnaire analysis. 

Purchasing. Program can analyze vendors 
(for example, order-filling speed, and previous 
complaints) to select the best over-all vendors. 

Bid preparation and job pricing. The 
salesman or contractor would find a bid preparation 
program useful in calculating variable sales prices, 
keeping running totals, and figuring mark-ups or 
mark-downs. Preparation on the computer typically 
requires one fifth to one tenth the time required by 
manual methods and frees time for profit-making. 


GENERAL BUSINESS CALCULATIONS 
AND BUSINESS ACCOUNTING SYSTEMS 


The computer can be used to keep track of 
accounts receivable, to prepare aged trial balances, 
monthly statements, follow-up sales letters, and 
collection letters, and to provide on-line account 
status inquiry handling. 


Writing a Small Business Accounting System 


The following 1s an outline of a small business 
accounting system designed for use on a small com- 
puter with a printer and floppy disks. The program 
is intended for use by an individual proprietorship 
or a small partnership. For such a business, tax 
returns are prepared (either form 1040 schedule C 
or form 1065), bookkeeping is done, and balance 
sheets are produced by the system described for 
management and banking purposes. Advantages of 
computerizing this information include savings In 


time and improved error detection. 

The most desirable bookkeeping system 1s 
called the double entry system; each transaction Is 
entered into two different accounts, and thus, the 
system is self-checking. With the double entry 
system, each transaction is first recorded as money 
coming from some account and then recorded as 
money going to some account. Debits, abbreviated 
as DR for computer use, represent an addition to 
your account or to an expense; credits, abbreviated 
CR represent a subtraction from an account or from 
an expense. To determine whether or not the book- 
keeping has been done correctly, find out whether 
or not the debits always equal the credits. For 
example, if you paid a bill for $50 and received a 
check for $100 for services performed, the book- 
keeping entries would be as follows: 

a. Debit (subtract from what you owe) ac- 

counts payable for $50. 

b. Credit (subtract from what you have) cash 

on hand for $50. 

c. Debit (add to what you have) cash on hand 

for $100. 

d. Credit (add to revenue) income or revenue 

for $100. 
The continual up-keep of the status of each account 
for a business is the purpose of the bookkeeping 
program. An example of the account files along with 
a suggested computer abbreviation for each 1s listed 
here: 


EXPENSES (debit to add, credit to subtract) 


Return and allowances RTN (goods returned 
for refund) 


Depreciation DEP (for equipment 


owned) 

Business taxes TAX 

Rent RNT 

Repairs RPR 

Bad debts BDB (for the charge-off 
accounting 
method) 

Professional fees PREF 


AMT (charge partial 
costs of organiza- 


Amortization 
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tion expense, re- 


search/develop- 
ment, etc.) 

Fuel FUL 

Telephone PON 

Electricity PWR 


SAL (does not include 
wages included in 
cost of goods sold) 


Salaries and wages 


Interest INT (interest paid, on- 
ly) 

Labor/production costs LAB 

Purchases PUR 

Insurance INS 

Pension/profit sharing PEN 

Depletion DPL (used for such as- 
sets as mines/oil 
fields) 

Materials/supplies MAT 


CGS (includes: — pur- 
chases, materials/ 
supplies, labor/ 
production costs, 
other costs) 


Cost of goods sold 


ASSETS (debit to add, credit to subtract) 


Cash CSH (usually checking acct. 
balances) 

Receivable RBL (amounts owed by cus- 
tomers on accounts) 

Inventory INV 

Prepaid expenses PPD 

Supplies SUP 

Equipment EQT 

Investments IVS 

Miscellaneous ETC 


LIABILITIES AND EQUITY 


Payables PBL (amounts owed on an 
account) 

Notes NOT (borrowed money) 

Long term payables LTP 

Proprietor PRP (amount invested in 
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business and net in- 
come) 

DRW (amount from which 
owner may use 
money for personal 
expenses) 


Drawing 


REVENUES (credit to add, debit to subtract) 


RCP 
REV 
The IRS requires reports in the following areas: 
depreciation, business taxes, repairs, and amorti- 
zation. 

The various reports that may be generated by 
the system include the balance sheet; a sample 
balance sheet is listed below: 


Gross receipts 
Other revenue 


ASSETS LIABILITIES 
Equipment 9000. Notes 2000. 
Receivables 000. Payables 3500. 
Cash 3000. Total 9900. 
Total 8500. 

EQUITY 
Proprietor 3000 
Total (Liabilities + Equity) = 


8500. 


Assets represent what the businessman has, lia- 
bilities represent the amounts owed, and equities 
are amounts contributed or earned by the owners. 

Another report that is a necessary part of a 
small business accounting system is termed the 
income statement. It displays the income and ex- 
pense of the business during a certain length of time 
(a period); it may be used to fill out tax forms 1040C 
or 1065. To generate this report, total income is 
computed and total expenses are subtracted from 
this figure. Income for accounts may be stated on an 
accrual basis, which is to say that future expenses 
or revenues are included if the exact amount 1s 
known and certain (for example, the amounts cus- 
tomers owe may be stated on an accrual basis). 
Business owners may prefer to prepare a tax return 


report on a cash basis in which the only revenue 
considered is to be cash in and the only expenses 
considered are cash out. To prepare such a report, 
you must eliminate payables, receivables, prepaid 
expenses, and supplies not yet part of the cost of 
goods sold; the revenue and expense accounts 
should be adjusted to reflect this change. 

Another necessary report 1s the /edger of which 
may be two types: summary and detailed. The de- 
tailed ledger is a complete listing of each account 
transaction (name, amount, and so on) that has been 
input within a certain period of time (usually done 
on a weekly or monthly basis). The balances up to 
the time of the beginning of the report have been 
stored from prior ledgers and are read into the 
computer. Thus, a report listing each transaction 
and the remaining balance in each account Is gener- 
ated. The summary ledger report only lists the 
remaining balances after adding and subtracting all 
transactions for a given period of time. 

The balance sheet is the final report necessary 
on a small accounting system. The sum of the 
liabilities is subtracted from the sum of the assets to 
determine the balance or net profit for the business 
owner. This balance 1s credited to the pro- 
prietor (PRP) account, and thus, the assets plus the 
net income will balance (equal) with the liabilities. 

Additional functions of the accounting system 
could include forecasting income using trend-line 
analysis of previous balance sheets, forecasting 
other accounts using previous records, preparing 
amortization schedules, determining depreciation 
amounts and budgeting cash based on forecasted 
cash on hand and cash payable. 

The accounting system flowchart 1s shown in 
Fig. 2-2. 


ADDITIONAL APPLICATIONS FOR THE 
SMALL BUSINESS PERSON OR THE PROFESSIONAL 


The small business person or professional 
could use his or her microcomputer for the follow- 
ing additional purposes. 

Order processing. The computer could be 
used for order editing, freight cost computation, 
credit checks, stock availability checks, and order 
status checks. A billing/invoicing calculation pro- 


gram could provide the following information: net 
total, total tax, total tax plus freight, total profit, 
percent of net profit, total value of back-ordered 
items, total discount amount, total gross amount, 
and total cost amount. 

Sales. The computer could prepare a break- 
down of sales volume and profitability by product, 
customer, or salesman. Sales order processing 
software could print packing slips, deduct sold mer- 
chandise from inventory, verify orders, process 
returned goods, accumulate back orders, enter cash 
receipts, print invoices, print sales and credit jour- 
nals, and maintain a customer master file. 

General accounting. General accounting 
functions include cost record keeping, budgeting, 
daily exception recordkeeping, and the issuing of 
profit and loss statements. 

Mailing list. One of the prime assets of a 
small business 1s its mailing list, representing cus- 
tomers who are likely to be repeat purchasers. The 
personal computer simplifies mailing list mainte- 
nance and 1s capable of sorting names according to a 
variety of characteristics, depending upon how 
much information is stored by the program in addi- 
tion to names and addresses. Consider the follow- 
ing promotional or money-saving activities that can 
easily be accomplished through the use of a full- 
featured mailing list program: 


e Sort list by zip for bulk mail savings. 

e Sort list alphabetically and printout as a customer 
reference. 

e Mail pieces to residents of a certain town or zip 
for a special local promotion. 

e Mailings to customers having an upcoming birth- 
day. 

e Mailings to all women announcing a special sale 
on dresses. 

e Mailings to only the most active customers for a 
special “favored customer promotion.” 

The ability of a mailing list program to sort 
customers by these and other criteria requires that 
special codes be input along with names and ad- 
dresses. The coding used and its extent are at the 
user’s discretion. 

Customer file management. By function- 
ing in a manner similar to the way a mailing list 
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Fig. 2-2. A flowchart for an accounting system program. 
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program functions, a customer file management 
program could keep track of customers in a way that 
is useful to the business. The data stored could 
include customer name, address, phone, occupa- 
tion, credit limit, current balance, brand prefer- 
ence, total purchases, sales representative, and 
date of last order. The business manager could then 
obtain lists of customers according to 


® Outstanding balance of 304 days, for collection 
purposes. 

¢ Brand preference, for research and promotional 
purposes. 

° Sales representatives. 

¢ Those who have not ordered within the last year, 
for consideration of removal from the active list 
or for a followup campaign. 


A mailing list program could be combined with a 
customer maintenance program to provide a pow- 
erful tool—an accurate profile of your customer 
base, useful reports for the sales staff, and a means 
for select mail promotion. 

Payroll. A complete payroll calculation pro- 
gram would include the following features: time- 
card hours computation, check writing, and provi- 
sions for commissions, bonuses, plecework 
salaries, incentives. W-2 forms, and payroll sum- 
maries could also be outputted. 

Inventory. A complete inventory manage- 
ment program should be able to output the following 
reports: detailed inventory, inventory status, on- 
order, order exception, analysis by cost, list for use 
in physical inventory, period to date, year to date, 
minimum quantity search, and inventory projec- 
tions. The following file update functions should 


also be provided: place and order, cancel an order, 
add a new inventory form, delete an existing in- 
ventory item, initial a new period or year. The 
inventory program could also print purchase orders 
or reminders. 

Contract preparation. A word-processing 
system could print personalized contract forms. 
Cost estimation functions could also be integrated 
into the contract preparation program. 

General business calculations. Consider 
the use of your personal computer or programmable 
calculator in performing the following general busi- 
ness computations, which may previously have 
been too awkward or time consuming when done by 
manual methods: cash flow, breakeven point, gov- 
ernment withholding calculations, selling price 
from cost and gross profit prorating, unit price 
comparisons, order quantity for optimum price 
break, moving average, seasonal average, cyclical 
analysis, histogram generation, worse-case 
analysis, universal rate of return, summation of 
ledger columns, optimum markup or markdown, 
net present value, choice between debt and equity, 
lease versus buy determinations, funds statement 
preparation, perpetual sales quantity, and gross 
sales revenue. 

Capital equipment investment analysis. 
The simple BASIC program in Listing 2-13 com- 
putes the maximum purchase price for a piece of 
equipment based upon estimated profits. 


Professional Practice Management 


Professionals with large practices should con- 
sider using a personal computer system in 


Listing 2-13: The Capital Equipment Investment Analysis Program 


90 DIM R (100) 


100 PRINTCHR$(147)TABC(40) "CAPITAL EQUIPMENT INVESTMENT ANALYSIS" 


110 PRINT"DETERMINES THE MAXIMUM PURCHASE PRICE" 

120 PRINT'FOR EQUIPMENT BASED UPON ESTIMATED PROBES: 
130° PRINT? PRINT ENTER THE EST. NO.OF ‘YEARS: QF” 

135 INPUT"EQUIPMENT LIFE"3;N 

140 INPUT"ENTER THE INTEREST RATE "31 

£50: PORAS 2 “PQo.N 

160 PRINT"ENTER THE PROJECTED EARNINGS FOR YEAR :''3X 
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170 INPUT R(X) 
180 NEXT X 

190 FOR X=1 TO N 
200 Q=Q+R(X)/14X 
ZO NEXT X 


220 PRINT'THE RECOMMENDED PURCHASE PRICE IS: $"3Q 


230 END 


Maintaining appointments 

Billing and collection 

Generating appointment reminders 

Accessing reference libraries and data resources 

for journal articles, diagnoses, case laws, stan- 

dards, rules and regulations, codes, and drug 

Information. 

e Correspondence and document preparation 

e Telecommunication with laboratories for diag- 
nostic tests. 

e Insurance form preparation or transmission. 


Business Letters 


Professionally prepared files of business let- 
ters are available for popular personal computers to 
save you time and enable you to produce better 
letters. Typically over 1000 letters are available for 
review, modification, and output with the use of a 
word processing program. 

The new U.S. Post Office E*COM (electronic 
computer-originated first class mail) system per- 
mits the transmission of business letters via 
modem to the E*COM network; the letter will be 
printed and mailed for delivery the next day any- 
where in the U.S. The current rate 1s $0.26 each. 
The system may be used for anyone with a modem 
and a personal computer upon payment of a $50.00 
annual accounting fee. 


Sales Device 


The small computer may be used as a sales 
device in several ways. Now that telephone dialing 
interfaces are available, you can use the computer 
to call every possible telephone number in an ex- 
change or from a customer file and deliver a tape- 
recorded retail sales message to anyone who 
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answers. At expositions or retail sales outlets, a 
computer with a video display can continually list 
Sales information. Crude question-answering 
capabilities could also be provided. 

Use of the computer as a customer advisor can 
increase sales traffic as well. For example, a garden 
supply shop could provide customers with access to 
a computer programmed to answer gardening 
questions about specific plants (for example, ques- 
tions about growing seasons and nutrient require- 
ments), amount and type of fertilizer for a certain 
size lawn and type of grass, and possibly output a 
complete garden plan. A wine shop computer could 
recommend a type of wine to accompany a given 
meal, the glass and temperature to use, and the 
comparative prices of wines. The cosmetics de- 
partment of a store could use the computer to 
suggest brand name cosmetics to use in achieving a 
certain complexion. A swimming pool maintenance 
company advertises that it offers a free computer 
analysis of anyone’s swimming pool water. From 
water samples, the computer determines the type 
and amount of chemicals necessary to maintain a 
specific pool; these chemicals are then sold to the 
pool owner. 


The Calculation of the 
Number of Days Between Two Dates 


Businesspeople often need to know how much 
time (usually in terms of days) there 1s between two 
given dates. A program, such as the one in Listing 
2-14 stores the number of days in each month and 
could serve to calculate this value. Additionally, 
time conversions between seconds, minutes, 
hours, days, weeks, months, and years could be 
performed. 


15 PRINT'FOR TWO DATES IN THE SAME YEAR" 
20 DIM M(12) 

30 FORX=1 TO 12 

40 READ M(X) 

50 NEXT X 


7O INPUT A 
80 IF A=] THEN M(2)=29 


100 INPUT D1,M1 


P 
120 INPUT D2,M2 
IF Ml1=M2 THEN DA=D2-D1:GOTO 200 
EM=M(M1)-D1 
IF Ml+l1=M2 THEN 190 
FOR X=M141 TO M2-1 
DA=DA4+M(X ) 
NEXT X 
DA=DA+EM+D2 
PRINT'THE NUMBER OF DAYS="3DA 
END 


Time Calculations 


Calculation of the difference in hours or days 
between two given times is another business appli- 
cation. The results can be used in determining 
hours worked for payroll purposes or in figuring 
accumulated interest. The program in Listing 2-15 
calculates the difference between two times. 

Time differences between major cities or time 
zones could be calculated by a program. A world 


Listing 2-15: The Time Difference Program 


5 PRINT CHR$(147) 
PRINT "TIME DIFFERENCE CALCULATION" 


Listing 2-14: The Calculation of the Number of Days Between Two Dates Program 
10 PRINTCHR$(147)TAB(40)"DAYS BETWEEN TWO DATES CALCULATION" 


60 PRINT'IS THIS A LEAP YEAR (1=YES,2=NO)"; 


PRINT" INPUT THE FIRST DATE NUMERICALLY IN THIS FORM: DAY ,MONTH" 


RINT'INPUT THE SECOND DATE IN THE SAME FORM" 


DATA 3128.31, 304315.30,314.3130,31430,31 


map could also be displayed on a video screen with 
the appropriate times in major cities continuously 
updated. This application may be useful to those 
making long distance calls or flying into other time 
zones. 


The Calculation of Reference Tables 


Any mathematical function may be expressed 
as a table of values corresponding to the factors in 


REM COMPUTES DIFFERENCE IN HOURS ,MINUTES ,AND SECONDS 


PRINT “INPUT THE FIRST TIME IN 24. HR. CLOCK 


PRINT "HOURS ,MINUTES ,SECONDS" 
INPUT H1,M1,S1 


NPUT H2,M2,52 


P 

{ 
NH=H2-H1 
NM=M2-M1:I1F NM<O THEN NH=NH-1:NM=60+NM 
100 NS=S2~S1:IF NS<O THEN NM=NM-1:NS=60+NS 
110 PRINT "THE DIFFERENCE IN H,M,S IS:'';NH;NM;NS 
140 PRINT 
150 END 


FORMATION." 


RINT "INPUT FINAL TIME IN 24. HR, FORMAT." 
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the equation. Businesspeople who need to calculate 
the value of a particular function could produce a 
table listing values at specified intervals for easy 
reference. For example, a portion of a chart used in 
converting British pounds to American dollars is 
reproduced here. Note that the dollar equivalents 
are found in the interior of the chart. 


pence 

66. 30. 220.80) 40: 50> 260° 470 80 90 
11.90 2.09 2.28 2.47 2.66 2.85 3.04 3. 2 3.61 
2 3.803.99 4.18 4.37 4.56 4.75 4.94. 5. 2 5.5) 
39.705.89 6.08 6.27 6.46 6.65 6.84 7 7.41 
47.60 7.79 7.98 8.17 8.36 8.55 8.74 8.99 9.12 9.31 


pounds 


Listing 2-16: The Reference Table Program 


The conversion rate for this chart 1s 1.90 dollars per 
British pound. As an example of its use, the number 
of dollars that are equivalent to 4.90 pounds Is given 
by the chart as 9.31. The BASIC program used to 
print the chart is shown in Listing 2-16 and can be 
used as a model for similar programs designed to 
calculate reference tables. 

Your computer can be a time saver by com- 
puting and outputting tables concerning areas such 
as 
e Stock commissions. 

e Values of an investment or savings account over 
periods of time. 


10 PRINTCHR$(147)TAB(42)"CONVERT DOLLARS TO FOREIGN CURRENCY" 
20 PRINT'ENTER NAME OF FOREIGN CURRENCY TO BE" 


25 INPUT'CONVERTED"; B$ 


30 PRINT"ENTER DOLLAR VALUE OF ONE UNIT OF DE-" 
35 PRINT'STRED FOREIGN CURRENCY (1T.E., 1.9 FOR" 


40 INPUT'BRITISH POUND"SA 
45 INPUT"PRESS ENTER TO DISPLAY CHART";A$ 


50 PRINTCHR$(147)TAB((40-LEN(B$))/2)B$:PRINT 


70 PRINT" mele) .10 “20 730 
80 FOR X=1 TO 10 

90 PRINTX; 

100 FOR B=0O TO .4 STEP .1 

105 PRINT TABCB*70+3)"": 

110 FT=A*(X+B):GOSUB 200 

120 NEXT B 

130 PRINT 

140 NEXT X 

143 PRINT 

145 PRINT" ~50 -60 70 .80 
150 FOR X=1 TO 10 

160 PRINTX; 

LAOUPOR Bau OP EUS Tie» st 

LZ 5 PRENE  TABCCB=.5 20437773 


180 FT=A*(X+B):GOSUB 200 
190 NEXT B 

195 PRINT 

197 NEXT X 

198 FOR X=1 TO 5000:NEXT 
199 PRINTCHR$(19);:END 

200 REM MONEY FORMATTING ROUTINE 
210 FT$=STR$(FT) 

220 FOR Y=1 TO LEN(FT$) 

230 Y$=MID$(FT$,Y,1) 

240 PRINT Y$; 

250 IF Y$=""." THEN 270 

260 NEXT Y 

265 GOTO 330 
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40" 


290" 


270 Z=LEN(FT$)-Y 
280 IF Z=0 THEN PRINT ".00";:GOTO 330 


290: IF Z=1 THEN PRINT MIDSCFTS$.,Y+1,1)3"0"s<sGOTO: 330 
300 IF Z>1 THEN FOR Z=1 TO 2 
SLOUPRINT MIDS CETS VEZ, 1.) 
320 NEXT Z 

330 RETURN 


e Unit prices after certain quantity purchases. 

e Break-even values for various prices and sales of 
a product. 

e UPS/USPS rates to various cities for various 
weights. 


THE COMPUTER AND THE PROFESSIONS 


In this section a variety of ways in which the 
personal computer or programmable calculator can 
be used in the professions and in many blue collar 
occupations are listed. This short listing is far from 
complete; uses of calculators and computers are so 
diverse that these descriptions can only be sugges- 
tive of a few of the many applications. 


Accountants and tax 
specialists: 
Advertising: 


All aspects of work 


Client fees 

Composition and _print- 
ing costs 

Production (film and TV) 
costs 

Space and time buying 

Statistics in market re- 
search 

Yields per acre 

Livestock growth and 
feeding 

Livestock food supple- 
ments 

Crop mix and rotation 

Fertilizer ratios 

Comparative values 

Quantities 

Summations 

Strength of materials 

Loads, stresses, and 
strains 


Agriculture: 


Appraisers: 


Architects: 


Artists and designers: 


Attorneys: 


Auto salesmen: 


Auto service and 
repair: 


Banking: 


Broadcasting: 


Building contractor: 


Geometrical configura- 
tions 

Supplies and materials 

Scale reductions and ex- 
pansions 

Client fees by hours 
worked 

Terms of contracts 

Tax calculations 

Bankruptcy dispositions 

Optional equipment 
costs 

Discounts and prices 

Used car allowances 

Towing and road service 
costs 

Costs of materials and 
labor 

Estimates 

Interest, assets, 
nuities, insurance 

Foreign exchange 

Collateral 

Trust and pensions 

Program scheduling 

Advertising rates 

Station logs 

Measuring land sites 

Amounts and costs of 
roofing, flooring, sid- 
ing, etc. 

Electrical 
needs 

Figuring gutters, win- 
dows, screen sizes 

Water pressures, 
plumbing 

Work schedules and 
transportation 


an- 


loads and 
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Building 
maintenance: 
Buyer: 


Chemists and lab 
technicians: 


Construction 
trades: 


Dieticians: 


Educators—teachers: 


Employment 
counselors: 


Engineers: 
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Supplies and power 

Waste disposal 

Comparative costs 
among suppliers 

Shipping charges 

Foreign size conver- 
sions 

Cost relative to markup 
at retail 

Profit potential 

Quantitative measure- 
ments 

Composition of solutions 
and compounds 

Rates of reactions 

Volumetric and gravi- 
metric analysis. 

Calculations of mate- 
rials, labor time, 
charges, and so on by 
bricklayers, masons, 
carpenters, plaster- 
ers, plumbers, etc. 

Food quantities and 
costs 

Nutritional and caloric 
values 

Grading homework and 
examination papers 

Classroom games and 
instructions in arith- 
metic, English, etc. 

Working conditions, wa- 
ges, and salaries 

Fringe benefits 

Labor supply and open- 
ings 

All phases of construc- 
tion, including plant 
location studies, tax 
rates, labor and 
transportation 
charges, loads, 
amounts and costs of 
raw materials, exca- 
vation needs, fill, 


Geologists: 


Hotel and inn keepers: 


Independent 
businesses: 


Insurance salesman: 


Interior decorating: 


Jewelers: 


wood, wire and ce- 
ment forms, steel 
reinforcement, 
strength of materials, 
electrical loads, 
chemical reactions, 
etc. 

Land measurements 

Chemical analysis and 
assays 

Mineral depletion rates 

Supplies and labor 

Occupancy rates 

Concession profits and 
activity 

Group discounts and ca- 
tering 

Balance sheet, profit and 
loss statements 

Purchases, returns, and 
allowances 

Cost of materials, labor, 
services, loans 

Figuring profit on in- 
vestment and costs of 
expansion 

Itemizing for tax deduc- 
tions 

Depreciation schedules 

Premiums, dividends on 
policies 

Annuities 

Alternative insurance 
packages 

Proper levels of cover- 
age 

Amounts and costs of 
fabrics, rugs, carpet- 
ing, drapes, 
wallpaper, etc. 

Discounts for quantity 

Shipping times and 
charges 

Pricing and costs 

Composition of precious 
metals 


Landscape architects 
and contractors: 


Manufacturer’s 
representative: 


Market research: 


Medical, dental, and 
other health 
Services: 


Pattern makers: 


Personnel 
administration: 


Pharmacists: 


Photographers: 


Pilots: 


Gem weights and sizes 

Land areas, planting and 
fertilization 
schedules 

Land fill 

Cost of items less dis- 
counts 

Shipping and insurance 
costs 

Invoices prepared for 
suppliers and clients 

Statistics of opinion and 
field testing 

Extent and nature of 
competition 

Prescribing or utilizing 
medications, ane- 
sthetics, prosthe- 
tic devices, etc. 

Operational costs of ser- 
vices 

Supplies inventories and 
costs 

Geometric configura- 
tions 

Measurements and con- 
versions 

Alternative designs 

Absenteeism rates, effi- 
clency 

Vacations, illness rates 

Wage rate compliances 
and comparisons 

Employee benefits 

Hirings and severances 

Pharmaceutical mea- 
surements 

Supplies inventory and 
costs 

Pricing 

Composition of solutions 

Supplies comparisons 

Pricing 

Exposure times and 
shutter speeds 

Passenger and freight 


Printers: 


Psychologists: 


Publishing: 


Real estate: 


Restaurants: 


Renting and leasing: 


Sales, door to door: 


Sales, retail: 


Secretaries: 


loads 

Fuel consumption and 
capacities 

Navigation 

Paper stocks 

Scheduling printing runs 

Psychological testing 

Statistics of experiments 

Composition and print- 
ing costs 

Postage and shipping 
costs 

Inventory control 

Distribution costs 

Discounts 

Market and appraised 
value 

Development costs 

Taxes, insurance, wa- 
ter, and heating 
costs, 

Closing fees 

Commissions 

Food and liquor costs 
and prices 

Tips 

Interest charges and 
cash flow 

Inventory and usage 
rates 

Travel and other ex- 
penses 

Statements to suppliers 

Commissions 

Taxes and commissions 

Inventory and turnover 

Pricing—markups and 
markdowns 

Petty cash, travel ex- 
penses 

Postage costs 

Budget. production, 
sales reports 

Employer's personal fi- 
nances 

Correspondence and 
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Security analysts: 


Securities salesmen: 


Social services: 


Surveyors: 
Travel agents: 
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memo verification 
Profits, expenses, P/E 
ratios working capi- 


tal, depreciation, 
growth rates, div- 
idends, etc. 


Technical and funda- 
mental analyses 
Margin costs and avail- 


ability 

Dividend and interest 
ylelds 

Commissions earned 

Growth rates, price 
changes, balanced 
portfolios 


Welfare availability ver- 
sus family needs 

Family budgeting 

Land measurements 

Discounts on fares, 
tours, hotels 

Commissions earned 

Distances and costs per 
distance 

Converting foreign cur- 
rencies, kilometer 
distances, etc. 


Trucking and shipping: 


Typographers: 
Waiters and waitresses: 


Wholesalers and 
manufacturers 


Billing airlines, steam- 
ship lines, bus com- 
panies, tours, hotels, 
etc. 

Load capacities by 
weight and volume 
Distances, time sched- 

ules, costs 

Equipment inventory 
and maintenance 

License fees and taxes 

Printers’ measurements 

Plates and etchings 

Tips 

Totaling checks 

Labor and overhead 

Loss on discounting 
customers’ interest- 
bearing notes 

Interest on account bal- 
ances 

Recording payments, 
promissory notes, 
partial payments 

Consignments and re- 
turns 

Shipping costs and taxes 


Chapter 3 


Mathematical and 
Statistical Applications 


One of the biggest assets of the computer is its 
ability to perform complicated and tedious 
mathematical calculations with unerring diligence. 
Your personal computer may be programmed to 
emulate a simple adding machine or a complex sci- 
entific business calculator. It can perform statistical 
computations of use to those involved with busi- 
nesses, investments, questionnaire analysis, the 
sciences, and other fields. 


THE COMPUTER AS A SOPHISTICATED CALCULATOR 


A program could be written to emulate the 
functions of an ordinary or an RPN calculator. The 
computer could be used as a simple business or 
scientific calculator for a variety of purposes. Addi- 
tionally, functions not provided on an ordinary cal- 
culator could easily be included (for example, the 
ability to solve quadratic equations). 


RPN Calculator 


RPN stands for Reverse Polish Notation and 1s 
a system of representing mathematical equations. 


Some of the advanced scientific calculators use the 
RPN system because fewer keystrokes are re- 
quired to do complex calculations with an RPN 
system than with the regular system. The RPN 
system 1s often easier to use after you have gained 
familiarity with it. The purpose of the program in 
Listing 3-1 is to emulate an RPN calculator, pro- 
viding about 50 mathematical functions. This pro- 
gram is thus composed of 50 subroutines, identified 
by REM statements, that may be used as sub- 
routines in other BASIC programs that require 
functions not provided by your version of BASIC. 

In the RPN system there are no parentheses 
and no = (equals) key. Only two numbers are 
worked with at one time. A sample calculation 
would proceed as follows: 


Step Input Display Comments 
215 25 Enter first number 
0) 
0 These are the four 
registers 
0) 


19 


Step Input 


Q) 4 


Display 


4 
ca 
0 
) 


10 
10 


Comments 


Enter second number 
aS new numbers are 
input, preceding inputs 
are shifted through the 
registers. 


* stands for multiplica- 
tion. The answer to 
2.5 X 4 was calculated 
and put in the first po- 
sition in the display. 


enter third number 


enter forth number 


/ stands for division. 
The following calcula- 
tion was performed, and 
the answer was Stored in 
the first display position: 
10/5 °=-Z 


The + sign instructed 
that the two preceding 
results were to be 
added: 10+2=12; the 
answer was stored in 
the first position. The 
two preceding results 
were added because no 
new numbers were in- 
put for the computa- 
tion. 


The functions available in this program are 
listed and described below: 
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function 


~ + 


description 


multiplication 

addition 

division 

subtraction 

powers (e.g., X + y 
stands for x” and x +.5 

stands for Vx) 

inverse (e.g., 1/x) 

clear display/registers 

compute the sine of x 

compute the arcsine of x 

compute the cosine of x 

compute the arccosine of 
X 

compute the tangent of x 

compute the arctangent of x 

compute the secant of x 

compute the arcsecant of 
X 

compute the cotangent of 
X 

compute the arccotangent 
of x 

compute the cosecant of 
X 

compute the arccosecant 
of x 

place the value of 7 in 
the register 

compute the exponential 
of x (i.e., e*) 

compute the logarithm 
of x 

add a number to the 
memory register 

delete a number from the 
memory register 

change x to a percentage 
value 

compute the factorial of x 

compute the standard 
deviation for a set of 
scores 


cosecant of x 


Listing 3-1: The RPN Calculator Program 


10 PRINTCHR$(147)TAB(50)"RPN CALCULATOR": PRINT 


15 REM 


(C) 1978 MARK R. SAWUSCH--MAY NOT BE SOLD. 


20 PRINT"FOR DETAILED INSTRUCTIONS IN THE USE OF" 
25 PRINT "THIS PROGRAM CONSULT THE ACCOMPANYING" 
30 PRINT'BOOK."' 


35 FORX=1 TO 4000:NEXT:PRINTCHR$(147) 


40 DIM A( 100) ,M$(21),D$(50) ,K(25) 
50 PRINTTAB(55)"MAXI-CAL" 


go Gal2ra) 


60 FOR D=1 TO 50:READD$(D) :NEXT 


70 D=1 


100 REM ASK FOR COMMAND/VALUES 


function description function description 
HYP compute the value for the HCOT compute the hyperbolic 
hypotenuse of a triangle cotangent of x 
given the two sides #SIN inverse hyperbolic sine 
SIDE compute the value for a of x 
side of a triangle given #COS inverse hyperbolic cosine 
the hypotenuse and another side of x 
DEG change x from radians to #TAN inverse hyperbolic 
degrees tangent of x 
RAD change x from degrees to #SEC inverse hyperbolic 
radians cosecant of x 
POLR compute polar coordi- #CSC inverse hyperbolic 
nates given rectangular cotangent of x 
coordinates #COT inverse hyperbolic 
RECT compute rectangular secant of x 
coordinates given polar SZ switch the z registers 
coordinates RZ rotate the z registers 
MET compute metric conver- QUAD compute solutions to 
sions—a subprogram quadratic equations 
HSIN compute the hyperbolic with the quadratic 
sine of x equation 
HCOS compute the hyperbolic i put computer in monitor 
cosine of x mode so that ordinary 
HTAN compute the hyperbolic calculations may be 
tangent of x made in the form 
HSEC compute the hyperbolic PRINT 51.6. Type 
secant of x CONT in some BASICs 
HCSC compute the hyperbolic to continue with the 


program 


110 INPUTC$ 

112 0=0 

115 IF VAL(C$)=0 THEN 130:REM DETERMINE IF A COMMAND OR A NUMBER 
120 A(G)=VAL(C$):X=A(G):IF F(1)=2 THEN F(2)=2:GOTO 122 

As 3 lp 

122 <6 
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124 IF G=l THEN G=2:GOTO 126 
125 Gel 

126 GOTO 3005 

128 GOTO 110 

130 A(G)=L1:IF F(1)=l THEN F(2)=1:GOTO 134 

132 F(1)=1 

134 REM SEARCH TO FIND THE COMMAND 

135 FOR I=1 TO 50 

136 IF C$=D$(1) THEN 140 

137 NEXT I 

139 PRINT" ILLEGAL FUNCTION": PRINT:GOTO 110 

140 IF I<=15 THEN 145 

141 IF I>15 AND I<=28 THEN I=1-15:GOTO146 

142 IF I>28 AND I<=41 THEN J=I-28:GOTO147 

143 IF I>41 THEN T=I-41:GOTO148 

145 ON I GOTO 150, 200, 250, 300, 350, 400, 500, 550 , 600, 650, 700, 750, 800, 850, 900 
146 ON I GOTO 950,1000,1050,1100,1150,1200,1250, 1300, 1350,1400, 1450, 1500, 1550 
147 ON I GOTO 1600, 1650,1700, 1750, 1800, 1850, 1910, 1950, 2000, 2050, 2100, 2150, 2200 
148 ON IT GOTO 2250, 2300, 2350, 2400, 2450, 2500, 2550, 2600, 2700 
149 REM CALCULATE * 

150 IF F(1)=F(2)ANDF(1)=1 THEN X=Z1*Z4:GOTO 160 

P55 X%2Z1°72 

160 GOTO 3005 

199 REM CALCULATE+ 

200 IF F(1)=F(2)ANDF(1)=] THEN X=214+Z24:GOTO 210 

205 X=Z1+Z2 

210 GOTO 3005 

249 REM CALCULATE/ 

250 IF F(1)=F(2)ANDF(1)=1 THEN X=Z24/Z21:GOTO 260 

255 X=272/Z1 

260 GOTO 3005 

299 REM CALCULATE- 

300 IF F(1)=F(2)AND F(1)=1 THEN X=24-Z21:GOTO 310 

305; X272-7) 

310 GOTO 3005 

349 REM CALCULATE POWERS 

350 X=Z24Z1:GOTO 3005 

360 GOTO 3005 

399 REM CALCULATE INVERSES 

400 X=1/Z1:GOTO 3005 

499 REM CLEAR REGISTERS 

500 Z1=0:2Z2=0:Z3=0:24=0:GOTO3010 

549 REM CALCULATE SIN 

550 ACL)=SIN(A(L)*.0174533) 

560 GOTO 3000 

599 REM CALCULATE ARC SIN 

600 A(L)=ATN(A(L)/SQR(-A(L)*A(L)41) )*57. 29578 

610 GOTO 3000 

649 REM CALCULATE COSINE 

650 A(L)=COS(A(L)*.0174533) 

660 GOTO 3000 

699 REM CALCULATE ARC COSINE 

700 ACL)=(-ATN(A(L)/SQR(-A(L)*A(L)41 ) )4+1.5708 )*57. 29578 
710 GOTO 3000 

749 REM CALCULATE TANGENT 

750 A(L)=TAN(A(L)*.0174533) 

760 GOTO 3000 
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799 REM CALCULATE ARC TANGENT 

800 AC(L)=ATNCACL) )*57. 29578 

810 GOTO 3000 

849 REM CALCULATE SECANT 

850 A(L)=1/COS(A(L)*.0174533) 

860 GOTO 3000 

899 REM CALCULATE ARC SECANT 

900 A(L)=C(ATN(SQR(A(L)*AC(L)-1) )+CSGNCAC(L)-1)*1.5708) )*57.29578 
910 GOTO 3000 

949 REM CALCULATE COTANGENT 

950 ACL)=1/TAN(A(L)*.0174533) 

999 REM CALCULATE ARC COTANGENT 

1000 A(L)=(-ATN(ACL)4+1.5708) )*57.29578 
1010 GOTO 3000 

1049 REM CALCULATE COSECANT 

1050 ACL)=1/SINCACL)*.0174533) 

1060 GOTO 3000 

1099 REM CALCULATE ARC COSECANT 

1100 A(L)=(ATN(1/SQR(A(L)*AC(L)-1) )+(SGN(CA(L)-1)*1.5708))*57. 29578 
1120 GOTO 3000 

1149 REM VALUE FOR PI 

1150 Z1=3.141592754:GOTO 3010 

1160 GOTO 3000 

1199 REM CALCULATE NATURAL LOGARITHM 

1200 A(L)=EXPC(A(L) ) 

1210 GOTO 3000 

1249 REM CALCULATE LOGARITHM 

1250 A(L)=LOG(A(L)) 

1260 GOTO 3000 

1299 REM MEMORY ADDITION 

1300 DD=DD+1 

1310 INPUT"WHICH REGISTER";D 

1320 IF D=1 THEN M$(DD)=STR$(Z1):GOTO 1330 
1322 IF D=2 THEN M$(DD)=STR$(Z2):GOTO 1330 
1324 IF D=3 THEN M$(DD)=STR$(Z3):GOTO 1330 
1326 M$(DD)=STR$(24) 

1330 INPUT"DESCRIPTION';C$ 

1340 M$(DD)=M$(DD)+" "4+C$ 

1345 GOTO 110 

1349 REM MEMORY LISTING 

1350 FORD=1 TO DD 

1360 PRINT M$(D) 

1370 NEXT D 

1380 GOTO 110 

1399 REM CONV.FORZ 

1400 A(L)=A(L)*.01 

1410 GOTO 3000 

1449 REM COMPUTE FACTORIAL 

1450 FOR YY=1 TO A(L) 

1470 A(L)=A(L)*(A(L)-YY) 

1480 NEXT YY:GOTO 3000 

1499 REM STATISTICS 

1500 PRINT'IN STATISTICAL MODE" 

1501 PRINT 

1502 PRINT"ENTER VALUES SEPARATELY AND ENTER 999 WHEN DONE" 
1505 B=0:C=0:D=1 

1510 INPUT K(D) 

1520 IF K(D)=9999 THEN 1541 
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B=B+K(D) :C=C+K(D)42:D=D+1 
GOTO 1510 

PRINT'SCORES:": FORH=1TO(D-1) 
PRINTK(H) ; 

NEXT H:PRINT 


PRINT"SUM OF SCORES',"NUMBER OF SCORES" 
PRINT B,,,D-1 

PRINT: PRINT'MEAN" , "VARTANCE" 
PRINTB/(D-1) ,C-(B/(D-1) )42 
PRINT"STANDARD DEVIATION=";SOR(C-(B/(D-1) )42) 
REM COMPUTE HYPOTENUSE 
X=SQR(Z142+Z242) 

GOTO 3005 

REM COMPUTE SIDE OF TRIANGLE 
X=SQR(ABS(Z142-Z242)):GOTO 3005 

REM CONV. TO DEGREES 
A(L)=A(L)*57.2957791 

GOTO 3000 

REM CONV. TO RADIANS 
A(L)=.017453292*A(L) 

GOTO 3000 

REM RECT. TO POLAR CONV. 
Z1=SQR(Z1*Z14+Z2*Z2) 

A279 771 

Z2=( ATN(A/SQR(-A*A4+1) ))*57. 29578 

GOTO 3010 

REM POLAR TO RECT.CONV. 

B=Z1*SIN(Z2* .0174533) :Z2=Z.1*COS (Z2* .0174533) :Z1=B:GOTO 3010 
A(G)=Z1:PRINT'M EN U:" 

PRINT'USE THE NEGATIVE OF THE MENU # TO CONVERT VICE-VERSA)" 
PRINT'1)FEET TO METERS" 

PRINT"2) INCHES TO CENTIMETERS" 
PRINT"3)MILES TO KILOMETERS" 
PRINT"4)GALLONS TO LITERS" 
PRINT'S)FARENHEIGHT TO CENTIGRADE" 
PRINT"6)POUNDS TO KILOGRAMS" 
PRINT"7)END CONVERSIONS" 
INPUT'SELECT" ;H 

IF H<OQ THEN GOTO 1867 

ON H GOTO 1870,1876,1882,1888,1894,1900,110 
ON -H GOTO 1873,1879,1885,1891,1897,1903 
X=.33047851*A(G):GOTO 4000 
X=A(G)*3.281:GOTO 4000 
X=A(G)*2.54:GOTO 4000 
X=A(G)*.3937:GOTO 4000 
X=A(G)*1.609:GOTO 4000 
X=A(G)*.6215:GOTO 4000 
X=3.7853*A(G):GOTO 4000 

X=. 2642*A(G):GOTO 4000 
X¥=.5555555*(A(G)-32):GOTO 4000 
X=1.8*A(G)+32:GOTO 4000 
X=.4536*A(G):GOTO 4000 
X=2.2046*A(G):GOTO 4000 

REM COMPUTE HYPERBOLIC SINE 
A(L)=(EXP(A(L) )-EXP(-A(L)) )/2 

GOTO 3000 

REM COMPUTE HYPERBOLIC COSINE 
A(L)=(EXP( ACL) )+EXP(-A(L)))/2 


1960 
1999 
2000 
2010 
2049 
2050 
2060 
2099 
2100 
211.0 
2149 
2150 
2160 
2349 
2350 
2360 
299 
2400 
2410 
2449 
2450 
2460 
2500 
2550 
2600 
2610 
2620 
2650 
2/00 
2710 
2720 
3000 
3005 
3010 
3011 
3013 
3015 
3090 
3999 
4000 
4500 
4510 
4520 


GOTO 3000 

REM COMPUTE HYPERBOLIC TANGENT 
A(L)=-EXP(-A(L) )/(CEXP( ACL) )+EXP(-A(L) ))*241 
GOTO 3000 

REM COMPUTE HYPERBOLIC SECANT 
A(L)=2/(EXP(A(L) )+EXP(-A(L))) 

GOTO 3000 

REM COMPUTE HYPERBOLIC COSECANT 
A(L)=2/(EXP(A(L) )-EXP(-A(L))) 

GOTO 3000 

REM COMPUTE HYPERBOLIC COTANGENT 
A(L)=EXP(-A(L) )/(EXP(A(L) )-EXP(-A(L)) )*2+1 
GOTO 3000 

REM COMPUTE: INV. HYPERBOLIC SECANT 
A(L)=LOG( (SQR(-ACL)*A(L)+1)4+1)/A(L) ) 

GOTO 3000 

REM COMPUTE INV. HYPERBOLIC COSECANT 


A(L)=LOG( (SGN( ACL) )*SQRCACL)*A(L)4+1)41) /ACL) ) 


GOTO 3000 

REM COMPUTE INV. HYPERBOLIC COTANGENT 
A(L)=LOG((A(L)41)/(CAC(L)-1))/2 
GOTO 3000 

B=Z2:Z2=Z1:Z1=B:GOTO 3010 
B=Z4:24=Z3:Z2=Z1:Z1=B:GOTO 3010 
B=Z2*Z24+SQR(Z2*Z2-4*Z3*Z1) /2*Z3 
Z1=Z2*Z2-SQR(Z242-4*Z3*Z1) /2*Z3 
Z2=B 

GOTO 3010 

PRINT"ENTERING MONITOR MODE" 
STOP 

GOTO 110 

Z1=A(L):GOTO 3010 
24=73:273=Z2:Z2=Z21:Z1=X 
PRINT"Z1:";Z1 

PRINT"Z2:'"3Z2 

PRINT"Z3:"3Z3 

PRINT"Z4:"3Z4 

PRINT: PRINT 

GOTO 110 
PRINT"=";X:PRINT: PRINT: GOTO 1850 


DATA* ,+,/,-,4, INV,C,SIN,ASIN ,COS,ACOS , TAN ,ATAN,SEC ,ASEC ,COT, ACOT, CSC , ACSC 


DATA PI,E,LOG,MEM+,MEM-,2,N!,SD,HYP,SIDE,DEG,RAD,POLR,RECT ,MET,HSIN,HCOS 
DATA HTAN ,HSEC ,HCSC,HCOT, #SIN,#COS, #TAN,#SEC , #CSC, #COT,SZ,RZ,QUAD, ? 


STATISTICS 


The microcomputer is well-suited for dealing 


with statistics. Basic statistics for one or two 
variables—the mean, variance, and standard de- 
Viation may be found for a set of observations on one 
variable. For paired variable sets, the above statis- 


tics could be determined for each, and the 


covariance and correlation coefficient calculated. 


Mean X 


_ 2x 
on 


Variance 9, = 


n 


X(x —p)* 


nN 


Standard deviation a Vv variance 


SXY — nXY 


V (DX2—nX)(SY? —nY’) 


>(deviation from true mean)? 
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Means and moments. For grouped or un- 
grouped data, the arithmetic, geometric, and har- 
monic means may be determined; the second, 
third, and fourth moments about the mean and the 
coefficients of skewness and kurtosis may also be 
calculated. 

One and two way analysis of variance. 
The mean and variance for two treatment groups 
and for the entire sample may be calculated, and an 
F statistic can be applied to the differences between 
populations. 

Contingency table analysis. The chi- 
square statistic may be used to test independence 
between row and column classifications of a con- 
tingency table. 

Linear regression. A set of observations 
may be fit to a straight line by linear regression; the 
coefficient of determination, the standard error of y 
on x, and the standard error for the coefficients may 
also be computed. Multiple linear regression fits, 
and polynomial regression could also be performed. 

For the linear equation y = a + bx. 


— SAL = nX Y 
> X? — nX? 
a= Y-—bx 
where X =( X)/n, Y = (3% Y)M 


Survey analysis. The following statistical 
parameters could be calculated by a complete sur- 
vey analysis program: multivariate analysis, re- 
gression analysis, time-series analysis, variance 
determination, factor analysis, descriptions, and 
tabulations. 

Generation of frequency tables. For a 
large sample, a sorting program could output a 
standard or relative frequency table. 

Hypothesis testing. A useful program could 
determine confidence intervals for a given sample, 
which may then be used in testing hypotheses. 
Statistical hypothesis testing is used to answer 
such questions as, “A businessman claimed that 
20% of the public prefer his products; if 100 people 
were asked their opinion, what percentage would 
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have to respond negatively for this claim to be 
refutable? 

Statistical distributions. The approxima- 
tions for normal and student’s t-distributions given 
below are designed for easy translation into BASIC 
program statements and have wide applications in 
Statistical analysis. 


e Normal! Distribution 


Standard Normal Distribution 


— &=- pz) 


Ox 


probability of x falling in the shaded area above = 
1—r(at + at’ +a,t?) + €(x) 


where: a 0.4361836 
a, = —().1201676 
a, = 0.9372980 Y 
r=(e)Qn) ” 
t = (1 + 0.3326x)"’ 
| ex) | < 10° 


e Student’s t-distribution 


Student's t-distribution 


area of right-tail = 4(1 + ax + a,x + a,x” F 
a, x‘)? + e(x) 


0.196854 
0.115194 


where: a, 
a, 


= 0.000344 
0.019527 


© © 
| 


t = t-value 
= no. degrees of freedom 


x = (0 (1 — 2/9d) — 7/9) (2/9 +B + 2/9d)” 


le(x) | < 2.51074 


Similar approximations, available in statistical 
handbooks and the U.S. Bureau of Standards manu- 
als of computer approximations, may be used to 
compute Chi-Square and F distributions. 


Statistical Analysis 

The statistical analysis program in Listing 3-2 
has a wide range of applications in business, stock 
analysis, and the sciences. The program consists of 
Six subprograms including statistics with one vari- 
able, statistics with two variables, area under a 
curve computation, and exponential smoothing cal- 
culations. 

The first subprogram, statistics with one vari- 
able, is used to find basic descriptions for a set of 
data (that is the mean and the standard deviation). 


The second subprogram determines the linear re- 
gression for a set of (x.y) pairs. For example, the 
relationship between the price of a stock (x) to the 
Dow Jones Industrial Average (y) could be deter- 
mined by inputting corresponding pairs of values. 
The third subprogram computes the area under a 
normal curve between two points. A normal curve 
is used to describe many phenomena; it 1s pictured 
and mathematically described above. The area 
under the curve 1s equal to one; the average of a set 
of data (x) 1s the point at which the curve peaks. If 
two values on the x axis are picked, the area under 
the curve between these two points 1s equal to the 
probability of a value being between those points; 
this subprogram computes the area, or probability, 
between two given points. The fourth subprogram 
computes the cumulative binomial probability for 
the occurrence of a given value. The fifth subpro- 
gram plots data described in subprogram one in 
simple bargraph format. This section could be 1m- 
proved to plot data on an x, y axis or to create a 
labeled histogram. The sixth subprogram exponen- 
tially smooths a set of data. Data values are en- 
tered, and an exponential function is used to predict 
future values. This smoothing constant should be 
adjusted so that the output error 1s minimized. 


Listing 3-2: The Statistical Analysis Program 


CLR: CT=0 

DIM X(110),A(110),Y(110) 

DIM: Yi 100.2) .75C 33.2) 

PRINT''MENU:"' 

PRINT" 1)STATISTICS FOR 1 VARIABLE" 
PRINT"2)STATISTICS FOR 2 VARIABLES" 
PRINT"3)AREA UNDER A CURVE COMPUTATION" 


PRINT'5)PLOT DATA" 
PRINT''6 )EXPONENTIAI, SMOOTHING PROGRAM" 


REM ONE VARIABLE CALCULATIONS 


90 D=1:C=0: B=0: E=0 

100 INPUT ACD) 

120 GOTO 150 

130 INPUT ACD) 

140 IF A(D)=9999 THEN 500 
150 B=B+A(D) 

160 C=C+A(D)*ACD) 


PRINTCHR$(147)TAB(45)"STATISTICAL ANALYSIS PROGRAM" 
PRINTTAB(45)"FOR BUSINESS AND STOCK ANALYSTS": PRINT 


PRINT"4)CUMULATIVE BINOMIAL PROBABILITY CALC." 


INPUT A:ON A GOTO 70,1400, 900, 4000, 5000, 6000 


PRINT"ENTER SUCCESSIVE VALUES SEPARATELY, ENTER '9999' TO END" 
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170 
180 
500 
505 
510 
520 
530 
540 
550 
555 
560 
570 
580 
590 
600 
610 
615 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
750 
760 
ee 
790 
800 
805 
810 
820 
830 
840 
850 
855 
Oy 
860 
862 
863 
864 
865 
867 
870 
880 
900 
910 
920 
930 
940 
950 
970 
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D=D+1 
GOTO 130 

D=D-1:M=B/D 

PRINTCHR$(147):REM CLEAR SCREEN 
PRINT'NO. OF SCORES",''SUM OF SCORES" 
PRINT D,,B 

PRINT 

FOR H=1 TO D 

G=G+A(H)-M 

SG=SG+(A(H)-M)42 

NEXT H 

SG=SG/(D-1) :SG=SQR(SG) 
PRINT''MEAN" , "VARIANCE", '"'MEAN AVE. DEV." 
PRINT M,SG42,SG,G 

PRINT: PRINT'PROBABLE ERROR", "VARIATION COEF." 
PRINT .6745*SG,D/M 

PRINT 
PRINT"'STANDARD ERROR FOR THE MEAN="3SQR(SG42/D) 

PRINT 

FOR I=1 TO D-1 

FOR J=1 TO D-1 

X=A(J):Y=A(J41) 

IF A(J)<=A(J+1) THEN 690 

A(J)=Y:A(J+1)=X 

NEXT J,I 

INPUT'"PRESS RETURN TO CONTINUE"; A$ 
PRINTCHR$( 147) "MEASURE", "FREQ", "REL FREQ" 

PRINTTAB(240)"DEV FRM AVE DEV SQUARED","STD DEV" 

J9=0 

FOR J8=1 TO D 

H=1 

FR=1 

J=1 

IF A(J8)=A(J8+J) THEN FR=FR+1:GOTO 810 

GOTO 830 

J=J+1 

GOTO 800 

J9=J9+41 

PRINTCHR$(19)TAB(80+CT*40)J9;A(J8) , FR, FR*1/D 

PRINTTAB(240) M-A(J8) , (M-A(J8) )42, (A(J8)-M)/SG 

CT=CT+1:IF CT>4 THEN CT=0:PRINTTAB(240)"MORE--PRESS RETURN TO CONTINUE" 
INPUT A$ 

IF FR>1 THEN J8=J8+FR-1 

RM=RM+FR*A(J8) 42 

NEXT J8:CT=0 

PRINT"HIGHEST SCORE",''LOWEST SCORE" 

PRINT ACD), ,A(1) 

PRINT"ROOT MEAN SQUARE-"'; SQR(RM) 

PRINT'THUS X=""3M;''PLUS/MINUS";SG/SQR(D) 

INPUT'PRESS RETURN TO CONTINUE";A$:GOTO 30 

REM AREA UNDER NORMAL CURVE 

PRINT"ENTER THE STANDARD Z VALUE"; BE 

INPUT BE 

PRINT 

PRINT "X VALUE AREA TO LEFT AREA TO RIGHT" 

A=BE 

C=0:E=1:H=BE: D=0:G=BE4@2: F=. 398942*EXP(-.5*G) 


1030 J=H/E 

1040 C=C+J:IF J/C<.000001 THEN 1120 

1050 L=1:E=1:D=D4+1:H=G*H 

1060 FOR K=1 TO D 

1070 E=E+2:L=L*E 

1080 NEXT K 

1100 E=L:GOTO 1030 

1120 M=F*C+.5:N=1—-M 

1130 PRINT A,M,N 

1140 GOTO 1370 

1160 BE=BE/1.14142:0=BE42:P=EXP(-O)*.56419/BE:0=.5*0 
1200 P1=042:M=0*P:P2=0:P3=0 

1240 P5=1:P4=1 

1260 P2=P2+2 

1270 IF P3=P THEN 1320:GOTO 1280 

1275 P3=P 

1280 P=P5:P4=0*P4*(P2-1] )+P5:M=P2*M*P1*(P2+1) 
1310 GOTO 1260 

1320 P6=P*.5:Q=1-P6 

1330 PRINT A,Q,P6 

1350 BE=A+10 

1360 GOTO 950 

1370 PRINT 

1380 GOTO 30 

1400 D=1:PRINT" REGRESSION AND CORRELATION ANALYSIS": PRINT 
1410 PRINT"ENTER X,Y VALUES AS PAIRS SEPARATED BY COMMAS" 
1415 PRINT"ENTER 9999,9999 WHEN DONE" 

1420 INPUT X(D),Y(D) 

1430 IF X(D)=9999 AND Y(D)=9999 THEN 1510 
1440 Q9=Q9+X(D):R9=R9+Y(D) 

1450 Q8=Q8+X(D)42:R8=R8+Y(D)42 

1480 R6=R6+X(D)*YCD):D=D+1 

1500 GOTO 1420 

1510 D=D-1:N=D:Q7=Q9/D:R7=R9/D 

1540 A9=Q8-Q9*Q7: A8=R8—-R9*R7 

1560 B9=R6-Q9*R7:B8=B9/A9: B7=R7-B8*G7 

1590 A7=A8-B8*B9: A6=A7/(D-2) 

1610 FOR I=1 TON 

1620 BCI)=Y(1):A(1)=X(1) 

1640 NEXT I 

1650 GOSUB 3000 

1660 PRINT 

1670 PRINT"AVE.OF X","AVE.OF Y" 

1680 PRINT Al,A2 

1690 PRINT'STD.DEV X","STD DEV Y" 

1700 PRINT D1,D2 

1710 PRINT"CORRELATION COEFFICIENT X-Y:'';C9 
1720 PRINT: A9=A2 

1730 INPUT"PRESS RETURN TO CONTINUE";Z9$ 
1740 PRINT"THE FOLLOWING EQUATIONS EXPRESS THE X,Y" 
1745 PRINT"RELATIONSHIPS" 

1750 PRINT:PRINT" EQUATION 1" 

1770 PRINT" Y="3S9;"X4+"319 

1780 PRINT"Z ACCURACY OF Y VARIANCE DESCRIPTION="3; P9 
1782 PRINT" Y-INTERCEPT="; 19 

1784 PRINT"SLOPE=";S9 

1786 PRINT"F-RATIO=";59/(A6/(D-2) ) 


1790 PRINT 
1800 FOR I=1 TO D 

1810 IF X(1)<=0 THEN 1890 

1820 A(1)=LOG(X(I)) 

1830 NEXT T 

1840 GOSUB 3000 

1850 PRINT:PRINT'EQUATION 2" 

1860 PRINT" Y="3S9;"*LOG X+"319 

1870 PRINT'% ACCURACY OF DESCRIPTION": P9:PRINT 
1890 FOR I=l1 TON 

1900 A(I)=X(1):IF Y(1)<=0 THEN 2010 

1920 B(1)=LOG(Y(1)) 

1930 NEXT I 

1940 GOSUB 3000 

1950 GOSUB 3500 

1954 PRINT 

1955 INPUT'PRESS RETURN WHEN READY'";Z9$ 

1960 PRINT’EQUATION 3" 

1970 PRINT"LOG Y="3S93;'"*X+"s;T9:PRINT" OR" 

1990 PRINT" Y='"s EXP(S9) ;"@X+"s EXP(19) 

2000 PRINT"% ACCURACY OF DESCRIPTION"; P9 

2010 FOR I=l TON 

2020 IF A(1)<=0 THEN 3600:GOTO 2030 

2025 A(1I)=LOG(X(T)) 

2030 NEXT I 

2040 GOSUB 3000 

2050 GOSUB 3500 

2060 PRINT"EQUATION 4" 

2070 PRINT"LOG Y="3S93;"*LOG X+'";19:PRINT"OR" 
2080 PRINT" Y=": EXP( 19) 3"*X4":S9 

2090 PRINT'% ACCURACY DESCRIPTION"; P9 

2100 GOTO 3600 

3000 $1=0:S2=0:S3=0:S4=0:S5=0:FOR I=1 TO N 
3010 S1=S14A(1):S2=S2+B(1):S3=S3+A(1) 42 

3040 S4=S4+B(1)42:S5=S5+A(1)*B(1) 

3050 NEXT I 

3070 Al=S1/N:A2=S2/N:V1=(S3-(D*(A192)))/(N-1) 
3110 V2=(S4-(D*(A242)))/(N-1) :D1=SQR(V1) 

3120 D2=SOR(ABS(V2) ) : DO=N*S3-S142:19=( (S2*S3)-(S1*S5) )/DO 
3130 S9=((N*S5)-(S1*S2) ) /DO: P9=((S9*S9)*V1)/V2:C9=SQR(P9) 
3140 P9=100*P9: RETURN 

3500 S7=0:S8=0 

3520 FOR I=1 TO N 

3530 E=EXP(19+S9*A(T) ):S8=S8+(Y(1)-E)@2:S7=S7+(Y(1)-A9) 42 
3560 NEXT I 

3570 P9=100*(1-S8/S7):RETURN 

3600 INPUT'PRESS RETURN WHEN READY";Z9$ 

3740 GOTO 30 

4000 REM CUMLATIVE BINOMIAL PROBABILITIES 

4010 F=0 

4020 PRINT"ENTER THE # SUCCESSES,# TRIALS, PROB " 
4025 INPUT'SUCCESS/TRIAL";Y,N,P 

4030 Sl=1:FOR I=1 TO N 

4040 S1=S1*1:NEXT I 

4050 FOR X=0 TO Y 

4060 S2=1:S3=1 

4070 FOR I=1 TO X 


4080 S2=S2*T:NEXT I 

4090 FOR I=1 TO N-X 

4100 $3=S3*I:NEXT I 

4110 F=F+S1/(S2*S3)*P4X*( 1-P)4@(N-X) 

4120 NEXT X 

4130 PRINT'THE CUMULATIVE BINOMIAL PROBABILITY ;"3F 
4140 PRINT'FOR F(Y;N,,P) WHERE Y="s3¥;"N="sN:"Pa"'s p 
4150 GOTO 30 

5000 PRINTCHR$(147) 

SOO 5 SPRINT as Bea nt ee : 
5010 DX=31/A(D) 

5020 FOR X=D TO 1 STEP -1 

5025 IF A(X)=A(X-1) THEN GOTO 5050 

5030 PRINT A(X)3:PRINT"L": 

5040 FOR CT=1 TO DX*A(X):PRINT"+"s :NEXT CT:PRINT'" 
5050 NEXT X 

SO GOCE Ni esses a ee " 
5070 GOTO 30 

6000 REM EXPONENTIAL SMOOTHING 

6020 GOSUB 6500 

6040 GOSUB 7000 

6050 GOSUB 8000 

6060 GOTO 30 

6500 INPUT "ENTER SMOOTHING CONSTANT (0-1)":A 

6510 INPUT"ENTER PREDICTION PERIOD LENGTH":T 

6520 INPUT"ENTER THE FIRST DATA SET (9999 TO END)"3Y1(1,1):Y1(2,2)=Y1(1,1) 
6530 S1(1,0)=Y1(1,1):S1(2,0)=¥1(1,1):S1(3,0)=Y1(1,1):N=2:RETURN BOOK 1160 CBM 64 
7000 REM 

7010 PRINT N;:INPUT Y1(N,1) 


7020 IF Y1(N,1)=9999 GOTO 7200 

7030 S1(1,1)=A*Y1(N, 1)+(1-A)*S1(1,0):S1(2,1)=(1-A)*81(2,0)4S1(1,1)*A 
7050 $1(3,1)=(1-A)*S1(3,0)-S1(2,1)*A:P1=6%(1—-A) 424+(6—-5*A)*A*T+(A*¥T) 42 
7070 P2=S1(1,1)/(2*(1-A) 42) :P3=6%(1-A)$242*(5-4A )*A*T+2*( ANT) 42 
7090 P4=S1(2,1)/(2*(1-A) 42) 

7100 P5=2*(1-A)42+(4-3*A )*A*T+(A*T) 42:P6=S1(3,1)/(2%(1-A)*(1-A)) 
7110 Y1(N+1,2)=P1*P2-P3*P4+P5*P6:S51(1,0)=S1(1,1):S(2,0)=8(2, 1) 

7120 $1(3,0)=S1(3,1):N=N+1:GOTO 7010 

7200 RETURN 

8000 PRINT:PRINT"PERIOD OBSERVATION PREDICTION ERROR" 

8010 PRINT 1;Y1(1,1) 

8020 FOR J=2 TO N-1 

8030 PRINT JsY1(J,1):Y1(J,2)3Y1(J,2)-Y1(J, 1) 

8040 IF J/12<>INT(J/12) THEN 8100 

8050 PRINT: INPUT"PRESS RETURN TO CONTINUE"; A$ 

8060 PRINTCHR$(147):PRINT"PERIOD OBSERVATION PREDICTION ERROR" 


8100 NEXT 
8110 GOTO 30 
8120 END 
MATHEMATICS complex roots; equations of degrees could also 
Personal computers can be called upon to per- be solved for. 
form all-of the following: ® Roots of f(x): a program could find the roots of a 
e Solution of quadratic and cubic equations: given user-defined function using the bisection method 
the coefficients of either a quadratic or cubic or Newton’s method. 


equation, a program could solve for both real and © Vector operations: given two vectors in two di- 
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Listing 3-3: The Vector Addition Program 
PRINTCHR$(147)TAB(55)"VECTOR ADDITION" 


PRINT: PRINT" INPUT THE DATA FOR THE FIRST VECTOR IN" 


INPUT"THIS FORM:MAGNITUDE, ANGLE":M1,Al 
X1=M1*COS(A1) 
Y1=M1*SIN(A1) 


PRINT" INPUT THE DATA FOR THE SECOND VECTOR " 


INPUT"IN THE SAME FORMAT.":M2,A2 
X2=M2*COS(A2) 
Y2=M2*SIN(A2) 
X=X14X2:Y=Y1+Y2 
A=ATN(Y/X) 
100 M=SQR(X*X+Y*Y ) 


110 PRINT "NEW VECTOR MAGNITUDE;";M;"UNITS." 


120 PRINT'AT AN ANGLE OF"3;A;''DEGREES." 


130 PRINT'(X,Y) COORDINATE AT ENDPOINT=("3X3","s¥3")." 


140 PRINT 
150 END 


mensions, a program could calculate their mag- 
nitudes, the angle between them, and their dot 
and cross products. 
The program in Listing 3-3 calculates the sum 
of two vectors. 

e Triangle solution: for a triangle with three known 
“variables,” the lengths of the sides, the angles 
between sides, and the area could be computed. 

e Curve solution: the arc length, central angle, 
radius, chord length, and tangent length for a 
curve could be calculated given two known parts; 
the area enclosed by these parts could also be 
calculated. 

e Arithmetic, geometric, and harmonic progres- 
sions: a table of elements for the above three 
progressions could be generated. The element 
and the sum of the first n elements could also be 
determined. 

e Factors of integers, GCD, LCM: the prime fac- 
tors of an integer, the greatest common divisor 
(GCD), and the least common multiple (LCM) of 
two integers could be determined. 

e Function value table: a useful program could print 
the values for a user-defined function over a 
specified interval. 

e Prime number table: a table of prime numbers or 


Listing 3-4: The Polynomial Evaluation Program 
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100 PRINTCHR$(147)TAB(40)"POLYNOMIAL EVALUATION PROGRAM" 
110 PRINT: PRINT"COMPUTES VALUE AT A GIVEN POINT AND" 


a test for primes in a specified interval could be 
generated. 

e Partial sums and products: the partial sum or 
product of a user-defined function could be com- 
puted. 

e Interpolation between known values: Lagrange 
polynomial interpolation, or the Newton divided 
difference method may be performed to interpo- 
late values of a function. 

¢ Gaussian integration: the integral of a user- 
defined function can be determined by Gaussian 
quadrature. 

e Solutions of differential equations: first-order 
differential equations may be solved by a program 
using the Runge Kutta method; a step size may 
be determined to yield results within a specific 
error tolerance. 

¢ Polynomial arithmetic: addition, subtraction, 
multiplication, and division of polynomials may 
be accomplished. 

¢ Polynomial evaluation: a polynomial (P =a, + 
i ae lees ee ee a x" may be evaluated at a 
point x with complex coefficients. The program 
in Listing 3-4 evaluates a polynomial expression 
at a given point and determines the first and 
second deviatives. 


115 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
a0 
560 
370 


e Polynomial root finding: Barstow’s method is 
well suited for computer evaluation of quadric 
factors for polynomials of degree n. 

e Complex arithmetic: addition, subtraction, mul- 
tiplication, division, squares, inverses, and so on 
may be performed using complex numbers. 

e Complex trigonometric functions: common 


PRINT"1ST AND 2ND DERIVATIVES" 
PRINT: DIM..B(90)5.40509 ) CC 5042) 


E=0 


PRINT"ENTER THE DEGREE OF THE POLYNOMIAL"; 


INPUT X 


PRINT'ENTER THE COEFFICIENTS SEPARATELY"; 


FORD=0 TO X 
INPUT BCD) 
NEXT D 


PRINT"ENTER THE NO. OF VALUES TO BE EVALUATED" 


INPUT N:NI=N 


PRINT"ENTER THE POINTS SEPARATELY"; 


FOR D=1 TO N 
INPUT Z(D) 
NEXT D 

GOSUB 340 
GOSUB 450 
E=E+1 

GOSUB 340 
GOSUB 450 
E=F+1 

GOSUB 340 
GOTO 500 

FOR F=l1 TO NI 
N=Z(F) 

GOSUB 400 
CCP EHH 

NEXT F 
RETURN 

H=O 

FOR D=0O TO X 
H=B(D)+N*H 
NEXT D 
RETURN 

FOR D=O TO X 
B(D)=(X-D)*BCD) 
NEXT D 

X=X-1 

RETURN 

PRINT 


PRINT'POINT OF EVAL 


PRINT 
FORF=1 TO Nl 
PRINT Z(F)," 
NEXT F 

PRINT 
END 


V SGCF50) sOCR WG Cr 2) 


DER2" 


trigonometric functions may be evaluated using 
complex numbers. 
e Base conversions: a useful program could trans- 
form numbers of any real base to another base. 
e Graphing calculations: the intervals to use for 
proportional axes given the minimum/maximum 
values and number of major divisions could be 
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calculated and used for plotting data manually or 
with a plotter/printer. Additionally, conversion 
routines between radians, quadrants, revolu- 
tions, and degrees could be provided. 

© Coordinate conversion between rectangular and 
polar equivalents may be computed with these 
formulae: 


PP Seay 
A = arctangent (y/x) 
x =r - cosine (A) 
y =r- sine (A) 
where: x = abscissa Cartesian coordinates 
y = ordinate 
r = magnitude of ray prota coordinates 
A = angle (in degrees) 


The Solution of Simultaneous Equation 


The small computer can be used to find the 
solution to a set of simultaneous equations. This 
mathematical operation has applications in many 
areas including business and science. An example 
of two equations to be solved simultaneously fol- 
lows: 


OX=4Y + 24 
2.5Y=6X — 4 


If the equations are solved simultaneously, a value 
will be found for X and Y such that both equations 
will be correct. The number of simultaneous equa- 
tions that can be solved by the program in Listing 
3-5 is limited only by the available memory in the 
computer. 


Listing 3-5: The Simultaneous Equation Solver Program 


100 
110 
115 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


PRINT" NUMBER OF EQUATIONS." 


REM ACCOMMODATE ANY NO. OF EQUATIONS 
REM LIMITED ONLY BY AVAILABLE MEMORY 
DIM M(30,30),P(30),L(30) 
INPUT"ENTER NUMBER OF VARIABLES":Z 
FOR E=1 TO Z:FOR D=1 TO Z 
PRINT'EQUATION #"3E;'",VARIABLE #"3D; 
INPUT M(E,D) 

NEXT D:PRINT'CONSTANT FOR EQN #"SE; 
INPUT L(E):NEXT E 

FOR E=1 TO Z-1 

L=ABS(M(E,E)):BeE 

FOR D=E+1 TO Z 

IF ABS(M(D,E))<L THEN 280 

B=D: L=ABS(M(D,E) ) 

NEXT D 

IF L=0 THEN 550 

IF B=E THEN 390 

FOR D=1 TO Z 

G=M(B,D) 

M(B,D)=M(E,D) 

M(E,D)=G 

NEXT D 

V=L(B) 

L(B)=L(E) 

L(E)=V 

FOR D=E+1 TO Z 

T=M(D,E)/M(E,E) 

FOR C=E+1 TO Z 
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PRINTCHR$(147)TAB(45)"SIMULTANEOUS EQUATION SOLVER" 
PRINT: PRINT"THE NUMBER OF VARIABLES EQUALS THE" 


PRINT: PRINT" THERE MUST BE MORE THAN ONE EQUATION" 
REM THE ARRAYS MAY BE REDIMENTIONED TO 


420 M(D,C)=M(D,C)-T*M(E,C) 

430 NEXT C 

440 L(D)=L(D)-T*L(E) 

450 NEXT D 

460 NEXT E 

470 IF M(Z,Z)=0 THEN 550 

480 E=Z-1:P(Z)=L(Z)/M(Z,Z) 

490 U=O0:FOR D=E+1 TO Z 

500 UsU+M(E,D)*P(D) 

510 NEXT D 

520 P(E)=(L(E)-U)/M(E,E) 

530 E=E-1:IF E>O THEN 490 

540 GOTO 570 

550 PRINT:PRINT'EQUATIONS ARE UNSOLVEABLE" 
560 GOTO 610 

570 PRINT:PRINT 

580 FOR E=1 TO Z 

590 PRINT"VARIABLE #":E;"="3P(E) 
600 NEXT E:PRINT 

610 INPUT "TRY AGAIN (1=YES,2=NO)":N 
620 PRINT: PRINT 

630 IF N=l THEN PRINT:GOTO 170. 


640 END 
Integral Evaluation Plotting Mathematical Functions 
Among the many methods used for computer With a little ingenuity, the TAB function may 
evaluation of integrals is Simpson’s Rule: be used to produce crude plots of trigonometric and 
other functions. Try this “one-liner” 
r f(x)dx = h/3[f(a)+4f(at+h) +2f(at+2h)+4f 
f (at+3h)+.. .+2f(a+(n—2)h)+4f 10 FOR X=0 TO 6.28 STEP .25:PRINT 
(a+(n—1)h) +f(b)] TAB (SIN(X)*30+430);“*":NEXT X 


The plotter program. The program in List- 
ing 3-6 is a general purpose plotting routine de- 
signed for use with a printer. Three types of plots 
may be made: two-dimensional, three-dimensional, 
and simultaneous plots. Lines 40-80 explain how 

The trapezoidal approximation is another al- functions to be plotted are to be entered into the 
gorithm used with computers. program. 


where h = and n = number of iterations 


(as n Increases, accuracy increases) 


Listing 3-6: The Plotter Program 


10 PRINTCHR$(147)TAB(55)"PLOTTER" 

20 PRINT:PRINT"PLOT UNCTIONS IN 2D,3D OR SIMULTANEOUSLY" 
30 PRINT'ROTATE OUTPUT 90 DEGREES FOR ACTUAL PLOT" 
40 PRINT'THE FUNCTIONS DEFINED IN LINES 1000 TO" 
50 PRINT"3000 OF THIS PROGRAM MAY BE CHANGED. TO" 
60 PRINT'DO SO, STOP THE PROGRAM AND ENTER YOUR" 
70 PRINT"OWN FUNCTIONS, BEING SURE TO USE THE" 

80 PRINT'SAME FORMAT ALREADY USED IN THOSE LINES" 
90 PRINT'(E.G. LINE 1000 Y IN TERMS OF X, LINE" 
100 PRINT"2000 Yl IN TERMS OF X, ETC." 

110 PRINT:PRINT: PRINT 
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120 
130 
140 
150 
160 
170 
180 
190 
195 
200 
ZO 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
365 
370 
380 
390 
400 
520 
25 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
655 
660 
665 
670 
680 
690 
695 
700 
710 
720 
730 


PRINT"SELECT:: 1) 2D PLOT, 2) 3D PLOT, 3) END" 

INPUT A 

ON A GOTO 160,520,150. 

END 

PRINT"SELECT: 1) PLOT 1 FUNCTION, 2) PLOT 2 FUNCTIONS SIMULTANEOUSLY" 


INPUT A 
FI=A 


PRINT'ENTER MIN. X VALUE, MAX. X VALUE, AND" 
PRINT"X INCREMENT (SEPARATED BY COMMAS)" 
INPUT E,F,D 

PRINT"ENTER MIN. Y VALUE, MAX. Y VALUE"; 
INPUT H,G 

Y1=36/(G-H) 

PRINT'Y MIN:"3H3" Y MAX: ''sGs3" INCREMENT: "3Y1 
PRINT 


PRINT TAB(4)HTAB( 36 )G 
FOR B=1 TO 38 

PRINT"+": 

NEXT B 

PRINT 

FOR X=E TO F STEP D 
PRINT X;:":"'s 

GOSUB 1000 

IF Fl=1 THEN 380 

GOSUB 2000 

IF Y>Y1 THEN PRINT TABCY142)"*";TABCY*Y1)"#":GOTO 370 
PRINT TAB(Y*Y1)"#";TABCY1$2)"" 
GOTO 390 

PRINT TABCY*Y1);'*" 
NEXT X 

GOTO 120 

REM 3D PLOT 

Agathe" 

E=5 

V=25 

G=.707106 

C=961 

PRINT"ENTER X INCREMENT"; 
INPUT IN 

FOR X=-30 TO 30 STEP IN 
A=O 

B=] 
D1=E*INT(SQR(C-X $2) /E) 
FOR Y=D1 TO -D1l STEP —-E 
Z=SQR(X42+Y $2) 

GOSUB 3000 


Z=INT(V+Z-G*Y) 
IF A$="*" THEN A$="+'":GOTO 670 

Aga" *" 

IF Z<=A GOTO 730 

A=Z 

IF Z=B THEN IF Z=F THEN IF A$="*" THEN A$="+":GOTO 700 
Aga"x" 

PRINT TAB(Z)A$; 

IF B=l THEN F=Z 

B=0 

NEXT Y 


740 PRINT "" 

750 NEXT X 

770 GOTO 120 

1000 Y=ABS(SIN(X)) 

1001 RETURN 

2000 Y1=ABS(COS(X)) 

2001 RETURN 

3000 Z=30*(EXP(-Z*Z/100)) 
3001 RETURN 


Determining the Equation of a Line 


The program in Listing 3-7 accepts (x,y) data 
points and uses linear regression to determine the 
equation of the line that best fits (describes) the 
data. Applications are numerous. For instance, if 
you were on a weight-loss plan and inputted values 
for your weight versus amount of exercise or 
calorie intake, the program could find the equation 
of a line that best fits this data. Thus, you could 
input a value for one variable (for example, calorie 
intake) and receive a corresponding value (for 


example, weight) for the other variable. Other 
areas that could be analyzed include stock price 
versus Dow Index, miles traveled versus gallons 
used, distance versus time, and heating costs ver- 
Sus outside temperature. This program uses the 
least squares method of linear regression. 


Solving for Corresponding Values 


Given two points of a line linear interpolation 
can be used to solve for y values corresponding to a 
given x value. Although this method 1s not as accu- 


Listing 3-7: The Line Equation Calculator Program 


1 PRINTCHR$(147)TAB(50)"LINE EQUATION CALCULATOR": PRINT 
2 PRINT"MAY BE USED TO DESCRIBE A SET OF DATA" 
3 PRINT" AND DETERMINE A CORRESPONDING POINT FOR" 


4 PRINT"ANY ENTERED POINT" 
5S PRINT 


10 INPUT"ENTER A NAME FOR THE FIRST SET OF DATA";A$ 
20 INPUT"ENTER A NAME FOR THE 2ND SET OF DATA";B$ 
72 PRINT"ENTER X,Y PAIRS SUCCESSIVELY, SEPARATED BY COMMAS." 


75 PRINT"'ENTER 0O,O TO END" 

76 Nel 

80 INPUT X,Y 

90 IF (X=0)AND(CY=0)THEN 200 
110 N=N+1 

120 PRINT'SET NO.:''sN 

130 A=A+X 

140 B=B+X*X 

150 C=C+Y*Y 

160 D=D+Y 

170 E=E+xX* Y 

180 GOTO 80 

200 N=N-1:M=(E*N-D*A ) /(B*N-A*A) 
210 V=(D*¥B-E*A) /(B*N-A*A) 

220 PRINTCHR$(147):REM CLEAR SCREEN 
230 PRINT" Y="3M3"X4"3V 


240 PRINT"ENTER A VALUE FOR";A$;" TO RECEIVE A CORRESPONDING" 


250 PRINT'VALUE FOR '":B$ 


260 INPUT"ENTER 9999 IF YOU WANT VICE-VERSA"; A 


270 IF A=9999 THEN GOTO 350 
280 PRINT 
290 PRINT'Y="s3M*A+V 
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300 GOTO 240 

350. REM 

390 PRINTCHR$(147) 

400 PRINT: PRINT" X="3-1/M;"*Y+"3V/M 

420 PRINT"ENTER A VALUE FOR ';B$;" TO RECEIVE A CORRESPONDING" 
430 PRINT"VALUE FOR ";A$ 

440 PRINT"ENTER 9999 FOR VICE-VERSA" 


450 INPUT A 

460 IF A=9999 THEN 350 

470 PRINT'THE VALUE FOR X="'3(A-V)/M 
480 PRINT 

490 GOTO 420 


rate as the least squares linear regression method, Both programs are marketed by the Microsoft 
it can be used in situations in which the correlation Corporation, 10700 Northup Way, Bellevue, WA 
coefficient is high. 98004, and should be seriously considered for pur- 
chase by professionals who must have reliable 
solutions to mathematical problems and by stu- 
dents of mathematics. Examples of symbolic com- 
: puter algebra produced by the muMath program 
appear below, and demonstrate that their programs 
are approaching true artificial intelligence capa- 


(yy Je — x) 


ay, eo 


where: x,,y, =coordinates of first point on the 


une bilities: 

x,,y, =coordinates of second point on 
the line Factor x” + 1: 

= abscissa of point to be inter- HGH eee a eee ae ex 
polated x’ + 1) 
y =ordinate of the point on the line 
with x 2x 
Integrate 


x +] 
Computer Calculus | 
‘ ; log & —-x4+) log (abs(x + 1)) 
Long perceived as merely number crunchers, ee, te ee | 
computers are now moving into the realm of elegant 6 3 
mathematics. Computer algebra programs are now 


available for personal computers. These programs atan ( aa 
can manipulate abstract symbolic mathematical ex- V3 
pressions and have the ability to do virtually ev- \/3 


erything taught in the first two years of university 
mathematics. They can factor polynomials, simplify | 
expressions, differentiate functions, solve equa- Expand x [ J (1 — a 

tions, expand functions into a Taylor series, invert n.d 

matrices, and even integrate functions, asacoup de | - 

grace. An outgrowth of the MACSYMA program X — 24x" + 252x" — 1472x' + 4730XK +... 


developed on large mainframe computers, muMath 


x 


: <3 2 

is a rewritten version capable of running on virtu- - ad ; 

ally any Z80 or 8080 microcomputer. A simplified Determinant of Y yo : 

version (called Picomath) has also been written in os, in I 
w we wl 


BASIC to run on just about any personal computer. 
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— (k-—w) (y—w) (y—x) (z—w) (z—x) (z-y) 


Calculate 30! 
26525285981 21910586363084800000000 


MATHEMATICAL RECREATIONS 
AND PROGRAMMING CHALLENGES 


Interesting mathematical problems and ideas 
to implement on your computer include the follow- 
ing. 

Using probability to forecast the out- 
come of a sporting event. For example, an equa- 
tion expressing the probability that a stronger team 
will win in a seven game series 1s 


p + 4p'q + 10p’q’ x + 10p*q’(1—x)p 


where p = probability that stronger team will win 
(].5) 


Listing 3-8: The World Series Predictor Program 


q = probability that weaker team will win 
(=1—p) 
x = conditional probability particular to a 
sport for example, for basketball this 
value has been calculated to be = .408) 
For further information see Mathematics Magazine, 
Sept.-Oct. 1975, pp. 187-192. 

The program in Listing 3-8 can help in pre- 
dicting the outcome of the World Series (or other 
seven-game series) if you can estimate (that 1s, 
guess) the probability of a given team winning each 
of the seven games based upon such factors as game 
location, opposing pitchers, and other rational or 
irrational hunches. For further discussion consult 
“The World Series Competition,” Journal of the 
American Statistical Association 47, Sept. 1952, pp. 
335-80. 

Solving mathematical puzzles. Puzzles 
such as the following can probably be solved with 


PRINT CHR$(147)TAB(49)"WORLD SERIES PREDICTOR" 


DIM P(20) ,F(20) ,T(20) ,G(20) 


PRINT"ENTER THE GAME PROBABILITIES FOR ALL" 
PRINT "SEVEN GAMES IN DECIMAL FORM (E.G., USE" 


PRINT "'.40' FOR '402%')" 


REM THE USER MUST DETERMINE INDIVIDUAL GAME PROBABILITIES 


REM (NATIONAL VS. AMERICAN LEAGUE) 


REM ON THE BASIS OF PITCHERS, HUNCHES, WHERE PLAYED, ETC. 
REM PROGRAM DETERMINES OUTCOME OF A 1000 GAME SERIES TO 


REM PREDICT THE SERIES QUTCOME 
POR X=l- TO: 7EUNPUT POX )SNEXT X 
PRINT "WAIT WHILE I PLAY 1000 GAMES" 


PRINT: PRINT’ THIS COULD TAKE A WHILE..." 


N=0:A=0:FOR X=1 TO 7:IF RND(O)<P(X) THEN 100 


A=A+1:IF A=4 THEN 140 

IF A<>4 THEN 110 

N=N+1:IF N=4 THEN 170 

NEXT X 
Al=A1+1:G(N+A)=G(N+A)+1:GOTO 190 
N1=N1+1:FCN+A )=F(N+A)41 

T(N+A )=T(N+A)41 


IF INT(N1+A1)=500 THEN PRINT CHR$(147)TAB(210)"HANG IN THERE..." 


IF N1+A1<1000 THEN 80 
PRINT "SERIES # TOTAL NATIONAL 
FOR X=4 TO 7:PRINT X,T(X),F(X),G(X) 
NEXT X:PRINT" 

PRINT "TOTALS:","1000",N1,A1:PRINT 


AMERICAN" 


PRINT "SIMULATED 1000 GAME SERIES RESULTS ABOVE": PRINT 
PRINT "AVE. LENGTH OF SERIES IS "3 (4*T(4)+5*T(5)+6*T(6)+7*T(7))/1000 


END 
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the use of brute-force, trial and error computer 
techniques only—if they can be solved at all: 


e Find three distinct right triangles with the fol- 
lowing properties: 


A. Are pythagorean (all three sides are inte- 
gers) 

B. The perimeters of the three triangles are 
equivalent 

C. The areas of the triangles are in arithmetic 
progression 


e Find the smallest solution in positive integers x 
and y of x — ney’ =1 wheren = 61 

e Find how many ways the integer 10,000 can be 
expressed as a sum of distinct positive integers 
(ignoring permutations). 

e Find the minimum value of the gamma function. 
gamma (n)=(n—1)! 
for an integer n in the range 1< n <2. 


Puzzles that are simpler to solve include such 
popular logic games as 


e Instant Insanity™ blocks: five blocks with dif- 
ferent colors on each side must be arranged so 
that all five blocks in a row have the same colors 
on each side. The computer could determine all 
possible solutions. (7,962,624 possible combi- 
nations exist and there are 192 solutions.) 


Listing 3-9: The Pi Calculation Program 


PRIMT' “ITERATE “ 
PRINT CALCULA T DMis THE 
PRIWT CDEC TMAL PLACES. 
PRIWT LOOPS," 
PRIM)" SE PRE SS ARMY 
GETAFE: TFARS! ! THEME 
ap a be ae 

hs hiss Joo piss] 

FOR [=] TO Leen 
L=] Bean 

T=Z#R-1 

tS ewe l + wl 

SaStyy T 
HeH+ 1 ReR+ 1 

L=L+ lee: TR Lollies GoTo se 
PRIM Hu $45 

HEAT oD 

Me EMD 


VWRILE OF 
IT REGUIRES 


Nfs i) Re 


~~ YR 
Vai 


KEY 


aaa 
a! 


je 


Mi) TI) a a 


i 
Po 
2 
1 
1 
4 
a 
fa 
a 
a 
1 
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PRIHTCHRE 1473 TAB CSE0 "FD CALCULATOR” 

PRINT PRINT" THIS SAMELE FREOGRAM DEMOWSTRATES 
TECHMIGUES BY REPEATEDLY" 

nw OP LS 
“A BEE" 


TO BEGIWD I" 


e The High I.Q. Game consists of a board in the 
shape of a cross with markers in every hole ex- 
cept the center hole. The player jumps markers 
with adjacent markers as in checkers and then 
removes the one Jumped over. Markers may not 
be moved unless ajump Is possible. The object of 
the game is to jump all the markers on the board, 
leaving only one final marker; this is difficult to 
accomplish. The computer could determine the 
strategy for winning the game and the number of 
different ways possible to win (is there only one 
method?). A mathematical analysis of this game 
appeared in The Journal of Recreational Math- 
ematics, Vol. 5, No. 2, 1972 pp. 133-. The trian- 
gular version was discussed in The Mathematics 
Teacher, January 1979, pp. 53-. 

Computing Pi, e, solutions for high- 
degree equations, and mathematical oddi- 
ties. Many mathematicians take delight in com- 
puting values for irrational expressions, determin- 
ing equations for special mathematical cir- 
cumstances, and discovering unusual properties of 
specific numbers. The computer is, of course, use- 
ful in such computations. 

Calculation of the value of Pi to any number of 
decimal places can be accomplished by the BASIC 
program in Listing 3-9. 


te ave® 


Pi can be calculated using this successive ap- 
proximation: 


m=4-—- 4/3 + 4/5 — 4/7 + 4/9 — 4/11 +... 


Similarly, the value of the natural log e may be 
calculated using this successive approximation: 


, xo x! 
e =l+xt+at ae 


Programs to compute a Fibonacci Sequence 
are also popular. The sequence 1s created by adding 
each previous term to the term before that: 


jy Ones ac ere ames ee 


Sunflower and daisy florets, pinecones, 
pineapples, the shells of some mollusks, and even 
patterns of paving stones and the mating habits of 
bees and rabbits exhibit properties given by the 
Fibonacci Sequence. For instance, the seeds of 
sunflowers and daisies form a pattern of two sets of 
spirals, one clockwise and the other coun- 
terclockwise. The numbers of spirals in the two 
sets are usually consecutive Fibonacci numbers (for 
example 34 and 50). 

Playing games. Interesting mathematical 
games for your computer include the following: 

e The four color map problem: a recreation that has 
interested mathematicians for many years 1s to 
prove that only four colors are needed to copy any 
map in sucha manner that no bordering countries 
are of the same color. The proof was ac- 
complished by a large-scale, brute-force com- 
puter program. 

A game based on this fact could involve two 
players who attempt to force each other to color 
two bordering countries the same color. In each 
turn, a player would choose any color to apply to 
any country on a map with random boundaries. 
Proper logic will ensure that one player will lose. 
The computer could serve as one of the oppo- 
nents. 


e Magic squares game: the magic squares game 
pits the computer against a human in an attempt 


A:(30,21) B:(21,9) A:(9,3) B:(3,0) 


to complete a magic square while blocking an 
opponent. A magic square 1s composed of smaller 
squares, each with a separate number inside. The 
numbers in the smaller squares in horizontal, 
vertical, and diagonal rows sum to the same 
amount. Opposing players could attempt to com- 
plete a magic square in opposing directions. 

e Maze games: maze games involve a randomly 
generated maze and acomputer controlled mouse 
that learns to find its way through the maze. 

e Exacto: this game for young people involves two 
five-digit numbers that have been randomly 
selected by the computer. Players are instructed 
to transform the first number into the second 
through multiplication, division, addition, or 
subtraction of any other number within a 
specified range. The computer would keep track 
of all computations at each stage. The players are 
scored according to speed or number of opera- 
tions required to finish. 

e Euclid: in this game (p,q) represents a pair of 
positive numbers such that p is greater than gq; A 
and B signify the two players. Players alternate 
turns. Each turn consists of replacing the larger 
of the two numbers given to a player by any 
positive number obtained by subtracting a posi- 
tive multiple of the smaller number from the 
larger number. (All numbers are integers). The 
first player to obtain zero for the (new) smaller 
number is declared the winner. 

A sample game is shown below; (51,30) is the 


Starting pair of numbers. 


B wins 


or the game could have been 


A:(30,21) B:(21,9) A: (12, 9) B:(9,3) 
A:(3,9) 


A wins 


¢ The Two Move Game: in the first half of this 
game, the two players secretly enter four non- 
negative numbers totaling the same number into 
the cells of a 2 by 2 matrix: 


x] x20 Sy a2 
x3 x4 y3~ y4 
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The entries are then exposed and a third 2 by 2 
matrix 1s developed in which the entries are xy. 
This final matrix is then analyzed by the first 
player who chooses a column and tries to 
maximize. The second player then chooses a row 
and tries to maximize. The player with the 
greatest variation wins. A mathematical strategy 
exists to win this game; can you find it? 


Sim: the game of Sim involves a gameboard like 
this: 


The players take alternate turns drawing lines 
between two points. The first player to draw an 
equilateral triangle or square loses. A math- 
ematical strategy exists to win this game. 

Life: this popular computer recreation was de- 
vised by John Conway, a mathematician at Cam- 
bridge University. It simulates an ecological 
system and illustrates the rise, fall, and changes 
of a society of living organisms as they interact 
with their environment and each other. The game 
begins with a small population of organisms; as 
time progresses (measured in terms of genera- 
tions), the population experiences one of three 
fates: it dies out due to over or underpopulation, 
it becomes stable, or it oscillates in a repeating 


GENERATION | 
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GENERATION 2 


GENERATION 3 
Ba eli 


pattern. Each member of the population has one 
of three fates during each generation. It can die 
from “starvation,” give birth to another or- 
ganism, or survive in a stable form. 

The game board is a grid of arbitrary size, 
often larger than 20 x 20. Each square on the grid 
may be occupied by one organism or empty. 
Thus, each organism always has eight surround- 
ing squares. It will die if it touches fewer than 
two or more than three occupied squares. If three 
occupied squares touch an empty square, a new 
occupant 1s born to fill that square. Births and 
deaths are evaluated simultaneously. 

When the game of Life 1s written in machine 
language, it will progress at speeds faster than 
one generation per second and can create a fas- 
cinating display of computer graphics. The 
course of a population through the first few gen- 
erations is shown in Fig. 3-1. 

Computing probabilities. You could use 


your computer to calculate the following prob- 
abilities. 
e Poker Probabilities: you could compute the prob- 


ability that m * n cards held by a defender in a 
bridge hand will be split m and n, or the prob- 
abilities for obtaining a certain hand in poker after 
certain cards have been played. 


e Birthdays: in a classroom of 24 students, how 


many would you estimate have the same birth- 
day? The chances are slightly better than even 


GENERATION 4 


GENERATION 5 


Fig. 3-1. The course of a Life population through nine generations. 


that 2 or more students will have birthdays on the 
same date, counter to our intuition! For a given 
number of people, x, the percent chance that 2 or 
more will have the same birthday is given by 


op chaee=! 100. 100s 365—%) 
365 


Write a BASIC program to calculate the percent 
chance of coincident birthdays for any input of x, 
the number of people in the group considered. 

e An Apocalyptic Possibility: an equation ex- 
pressing the probability of an accidental nuclear 
missile launch by the United States or the Soviet 
Union falsely triggering World War III is as fol- 
lows: 


PA = 1-(1—P)®U+s) 


where PA=Probability of the Apocalypse (for 
percent chance, multiply PA*100) 
U=total number of strategic missiles in the 
U.S. arsenal (2000 est.) 
S=Total number of strategic missiles in the 
Soviet arsenal (2300 est.) 
P=Probability of accidental launching of a 
nuclear missile by either side during a 
24-hr. period (1F-8 estimated) 
N=Number of days under consideration (20 
years=7,300 days) 
Write a BASIC program to consider dif- 
ferent values for U, S, P, and N. 


Calculating useful information. You can 
use your computer to figure out practical informa- 
tion such as the following: 


e Easter: a program to calculate the date of Easter 
for any year would make use of the fact that 
Easter falls on the first Sunday following the 
arbitrary Paschal Full Moon, which does not 
necessarily coincide with a real or astronomical 
moon. The Paschal Full Moon is calculated by 
adding 1 to the remainder obtained by dividing 
the year by 19 and applying the information given 
in Table 3-1. 


Table 3-1. The Paschal Full Moon Date. 


1-Apr 14 
2-Apr 3 

3-Mar 23 
4-Apr 11 
5-Mar 31 


11-Mar 25 
12-Apr 13 
13-Apr 2 

14-Mar 22 
15-Apr 10 


16-Mar 30 
17-Apr 17 


18-Apr 7 
19-Mar 27 


Thus, for the year 2000, the key is 6, or 
April 18. A program to calculate the day of the 
week (see the Business and Financial Applica- 
tions chapter) could then indicate that April 18, 
2000 is a Tuesday. Note: If the Paschal Full 
Moon falls on a Sunday, Easter 1s the following 
Sunday. The earliest Easter can fall is March 
23rd and the latest is April 25th. 

e Horizons: the distance to the horizon in miles 1s 
approximately = V 1.5h, where h = elevation 
above sea level in feet. Write a BASIC program 
to draw a mountain and print the miles to the 
horizon for viewers located at 100 foot intervals. 


Creating artistic patterns. You can use 
your microcomputer to generate interesting, artis- 
tic patterns such as Pascal’s art. As described in the 
December 1966 issue of Scientific American, Pas- 
cal’s triangle may be used to generate artistic 
geometric patterns. A sample Pascal triangle 1s 
shown below; each number 1n the successive rows 
is generated by adding the two numbers above and 
to the immediate left and right of the number in 
question. 


To write a BASIC program to generate pat- 
terns using the triangle you could, for instance, 
represent all odd numbers by an X and all even 
numbers by a space. Print the results on a line 
printer; a variety of interesting geometrical pat- 
terns involving triangles will be formed. 
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Chapter 4 


Technical and Scientific Applications 


Personal computers, rather than their large-scale 
counterparts, are increasingly being used by tech- 
nicians and scientists for problem solving. They 
offer the advantages of ease of use, low cost, and 
greater portability. Although many large scale sci- 
entific problems are best left to supercomputers, 
the personal computer has become an asset in its 
own right in all types of laboratories. 

In this chapter I will examine the ways per- 
sonal computers have been put to scientific and 
technical use. The personal computer can help to 
rid the professional or amateur scientist of the 
mathematical drudgery that is so much a part of the 
discovery process. It can rapidly and accurately 
solve problems, many of which would not have 
previously been undertaken because of their sheer 
magnitude. 

Many of these applications are specialized; the 
purpose of this chapter is to touch upon just a few of 
the most commonly used scientific applications, 
provide sources for further information, and dem- 
onstrate some solutions in BASIC. Due to space 
restrictions, formulas and in-depth coverage of 


each application 1s impossible, but this information 
should be readily available in standard reference 
manuals. 


WEATHER FORECASTING 


Forecasting the weather is usually thought to 
be a task for large computers only. However, local 
weather forecasting can be accomplished with sur- 
prising accuracy by taking note of wind direction 
and barometric changes. A chart in use by local 
weather bureaus has been based upon these two 
parameters and could easily be computerized. This 
data could be input automatically by the use of 
electronic barometers and wind direction instru- 
ments. 


Barometric Forecast 
Wind change condition code 
From To 
S SW i L 
S SE 3 E 
4 F 
) M 
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Barometric Forecast D. Fair for two days with slowly rising tempera- 


Wind change condition code tures. 
From To E. Rain within 24 hours. 
NE SE 3 G F. Wind increasing, rain within 24 hours. 
4 H G. Rain within 12-18 hours. 
5 J H. Wind increasing, rain within 12 hours. 
6 K I. Summer light winds, rain may not fall for sev- 
9 M eral days. Winter rain within 24 hours. 
N E 3 I J. Rain will continue for 1 to 2 days. 
4 A K. Rain, with high wind, followed within 36 hours 
9 N by clearing, and in winter by colder tempera- 
to the West 8 © tures. 
NW SW ] ‘S L. Clearing within a few hours, fair for several 
2 B days. 
3 D M. Severe storm imminent, followed within 24 
7 ie hours by clearing, and in winter by colder 
temperatures. 
If a forecast is not listed for the proper barometric N. Severe northeast gale and heavy precipitation, 
condition, enumerated below, other factors must be in winter, heavy snow followed by acold wave. 
used to provide the forecast. O. Clearing and colder. 
Barometric Conditions A cloud chart with forecasts included is also 
(IN INCHES Hg) useful. The forecast data for the various types of 
clouds could be stored and a comparison made be- 
1. 30.1 or more and steady tween this forecast and a forecast from the above 
2. 30.1-30.2 rising rapidly chart. 
3. 30.1 or more falling slowly Other suggestions for applying a personal 
4. 30.1 or more falling rapidly computer to weather calculations include the fol- 
5. 30.0 or less falling slowly lowing. 
6. 30.0 or less falling rapidly 1. Pressure/height conversions to allow an 
7. 30.0 or less rising slowly anaervid barometer to serve as an altime- 
8. 29.8 or less rising rapidly ter. 
9. 29.8 or less falling rapidly 2. Dew point temperature and relative 
humidity from wet and dry bulb readings. 
A rapid change is considered to be over .06 3. Normal maximum, mean, and minimum 
inches per hour. 30 inches Hg = 760 mm Hg. temperature degrees days for a given date 
and location. 
Forecasts 4, Estimates of cloud base heights from dew 
point and surface temperature observa- 
A. Summer rain probable/12-24 hours. Winter tions. 
rain or snow, increasing wind; bad weather 9. Almanac data for a given time and date (for 
often sets in when barometer begins to fall and example, declination of the sun, distance of 
winds set in from the N.E. the sun from the earth, phase of the moon, 
B. Fair, followed within two days by rain. and positions of the planets) stored for 
C. Continued fair, no decided temperature ready access. 
change. 6. Analysis and display of hourly weather data 
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Listing 4-1: The Temperature Humidity Index Program. 


a PRIMTCHRE< 197 9 7TABC400 "TEMPERATURES HUMIDITY TADES CALCULATOR" 
2 REM DETERMINES THE EFFECTIVE TEMPERATURE 
SQ PRINT: IMPUT"ENTER THE RELATIVE HUMIDIT "3H 
1 IF HeS4 THEM ASE GOTO Fe 
IF HeS9 AWD HESS THEM Ae OTRO Fe 
A IF Ho?S AND HOSW THEN A=4G0TO 7a 
SS IF Hoe? AND Hee THEM A=e6: GOTOTS 
IF He59 AND HP THEN A@le GOTO Fe 
Sh Aeld 
G@ IMPLIT'ENTER THE TEMPERATURE IM DEG.F"s7 
a THe, S#T+15-A 
PRINT" THE TEMPERATURE HUMIDITY INDEx=" 47H 
1aG PRIKT 
118 END 


derived from a phone line connected witha THE SUNDIAL DESIGN PROGRAM 


weather data channel. Use the program in Listing 4-3 to compute the 


7. Temperature humidity index and relative correct angles to use in constructing a sundial for 
humidity calculations. The program in your Jatitude. 


Listing 4-1 determines the effective tem- 
perature given the relative humidity and 
the actual temperature. 

8. Wind chill factor calculations. To calculate 
the wind chill factor, use the following for- 
mula: 


H = (.14 + .47 V) (36.5-T) 


The style should be set so that it lies in a north 
south direction as shown in Fig. 4-1. The top edge 
points to the North star, equal to the latitude in 
degrees above the horizon. The program gives you 
the angles to use in graduating the scale for each 
hour. 


ENERGY EFFICIENCY COMPUTATION 


You can use your small computer to make the 
following studies. 
e A computerized statistical comparison between 
the water temperature in a solar energy system 
The program in Listing 4-2 converts dry bulb —_— and the outside temperature, the angle of the sun, 
temperature in °F and wind speed in mph to ap- and so on could serve to evaluate the efficiency of 
parent wind chill temperature. a home solar energy system. Analog to digital 


where H = chill in calories lost per square cen- 
timeter of skin per second 
V = wind velocity (m/sec.) 
T = Temperature (°C) 


Listing 4-2: The Wind Chill Calculator Program 


PRINTCHR$( 147) 3TAB(50)"WIND CHILL CALCULATOR" 
PRINT "ENTER TEMPERATURE IN FAHRENHEIT" 

INPUT T 

PRINT "ENTER WIND SPEED IN M.P.H." 


INPUT V 

T1=T: V=(V*1609. 35) /3600: TC=33-( (T-32)* (5/9) ) 
H=(10.45+(SQR(V)*10)-V )*TC: X=H-506. 784 

IF X<O THEN X1l=T1:GOTO 80 
X1=50-(X/12.3):X1=INT(((X1*10)+45)/10) 

PRINT: PRINT’ WIND CHILL TEMP="'3X13;" DEGREES FAHRENHEIT" 
END 
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Listing 4-3: The Sundial Design Program 
95° PRIMO" 
LAG PROM T UUSUMIDLAL DESIGH FROGRAM" 
1@ FEM COMPLITES HECESSARY AHGLES FOR YOUR LATITUDE 
SA PRIHT "EMTER YOUR LATITUDE” 
8 IMPLIT # 
FRIAT "CUT A OSTYLE SUCH THAT THE UPPER EQIGE MARES AM ANGLE" 
SA PRIA "OF "GAs" DEGREES WITH THE BASE. " 
SA SeSTHCAS 
ee | 
SQ FOR B=15 TO 90 STEF 15 
138 T=TAHS B® 
a) te ed 
A ety 
220 PRIWT UAT Ge MOC CLOCK. THE AWGLE SHOULD BE" ATMO eSr, 2957s 
20 REM IM STATEMENT 22@ THE COHSTAMT SF.29578 1S USED TO CONVERT 
REM FROM RADGTAMS TO DEGREES, 
HEMT EB 


wth ED 


NORTH STAR 
= 
7S 
a 
s 


Fig. 4-1. The Moorish sundial. 
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converters could be used to gather the informa- 
tion automatically. 

e Those of you considering the installation of a 
solar system might want to do another statistical 
analysis of the heating requirements for your 
home based on Btu/hr times the number of hours 
that your furnace operates during the heating 
season. The size of a solar system necessary to 
heat your house can then be calculated using this 
data and the manufacturer’s efficiency data. 

In the central U.S. on June 21, the maximum 
solar energy striking the earth is 290 Btu/square 
foot (approximately 15 hours in the day). On De- 
cember 21, the solar energy is a maximum of 220 
Btu/square foot (approximately 9 hours in the day). 
Thus, you can compute average values for the var1- 
ables in the formula below. 


Solar collector Beh*s*m 
Btu output = 2 
where B = Btu/sq ft 
h = hrs/day 


s = sq.ft of collector 
m = max. efficiency 


Keep in mind that it takes 500 Btu to heat water at 
ground temperature (40°F) to 100°F and that the 
desired water temperature for home use is 1209F. 


e The answer to “How much fuel can be saved by 
turning the thermostat down from 70°F to 60°F 
at night?” may be determined using this equa- 
tion: 

.0625 (n-1)W 
=—7 
where A = amount of heat (Btu) 


W = the normal heat loss/hr. (Btu) 
n =the number of hours of discon- 


tinued heating 

Zz = the number of hours from the be- 
ginning of reheating until the house 
is at an acceptable temperature 


e To find the heat loss of your home, use the for- 
mula 

— kA(t-t!)T 

dd 


where H = heat transmission (Btu) 

K = coefficient of thermal conduction 
(Values for the type of construction 
used in your home may be found in 
builder's manuals) 

A = exposed area 

(t-t') = temperature difference between 
inside and outside (°F) 

T = duration of exposure (hours) 

d = thickness of walls Gnches) 


H 


e To calculate fuel requirements use the formula 


H(ta—tb)N x S x q 
100,000 x (ti—to) 


where C = fuel cost 
H = heat loss/hr. 
t = outside temperature 
= inside temperature 
= average inside temperature 
= average outside temperature 
= number of hours of heating required 
— number of units of fuel 
q — cost per unit of fuel 


C= 


N'A t,t ct 


The program in Listing 4-4 calculates esti- 
mated costs for heating your home with gas, oil, and 
electricity. Be sure to enter your heat loss in 
British thermal units, not degrees. 


Listing 4-4: The House Heating Program 


10 PRINTCHR$(147)TAB(45)"HOUSE HEATING EVALUATION PROGRAM" 


100 PRINT 


110 PRINT"THE PURPOSE OF THIS PROGRAM IS TO" 

115 PRINT“'COMPUTE THE RELATIVE EFFICIENCY OF " 

120 PRINT"HEATING A HOME WITH ELECTRICITY, GAS, " 

130 PRINT"OR OIL. IT WILL BE NECESSARY TO CONTACT" 
140 PRINT"THE DISTRIBUTORS OF THE ABOVE FUELS TO" 
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150 
155 
160 
170 
180 
190 
195 
196 
197 
198 
200 
205 
210 
220 
230 
240 
245 
250 
260 
270 
2d 
280 
285 
290 
300 
310 
315 
320 
330 
340 
345 
350 
355 
360 
365 
370 
375 
380 
390 
395 
400 
410 
415 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


PRINT'MAKE A COST COMPARI-" 

PRINT'SON. THERE ARE OTHER FACTORS TO 
PRINT'CONSIDER WHEN EVALUATING THE COST FOR " 
PRINT'HEATING (I.E. THE AMOUNT OF INSULATION" 
PRINT'YOU HAVE), BUT THE RATIOS BETWEEN 
PRINT'DIFFERENT FUELS SHOULD BE CONSISTANT." 

PRINT: PRINT"USE THE COST EFFICIENCIES THE PROGRAM" 
PRINT'COMPUTES ALONG WITH THE COST OF THE" 
PRINT"'HEATING SYSTEM TO DETERMINE WHICH YOU" 
PRINT'SHOULD CHOOSE." 

INPUT "ENTER ESTIMATED HEAT LOSS PER HOUR ";H 

REM THIS MAY BE APPROXIMATED USING FORMULA ON PAGE 136 
PRINT"IF YOU KNOW THE EFFICIENCY OF THE OIL " 

PRINT" BURNING SYSTEM, PLEASE ENTER THE VALUE," 
INPUT"OTHERWISE ENTER 'O'"sB 

IF B=0O THEN B=.8:GOTO 250 

B=B* .O1 

INPUT"ENTER THE AVE. # OF COLD MONTHS/YEAR";C 

C=C* 720 

PRINT'AT WHAT TEMPERATURE WILL YOU SET THE" 

INPUT" THERMOSTAT": D 

PRINT'WHAT IS THE AVERAGE OUTSIDE WINTER " 

INPUT" TEMPERATURE IN YOUR LOCATION";E 

REM COMPUTE HEAT LOSS PER HOUR 

X=((D-E)/70)*( (H*C)/(140000*B) ) 

PRINT'WHAT IS THE AVE. PRICE/GAL. OF OIL IN " 

PRINT" YOUR AREA--IF NOT KNOWN, ENTER 'O'" 

INPUT F 

IF F=O THEN F=.5 

PRINT" YOU WILL REQUIRE AN ESTIMATED ";X 
PRINT"GALLONS OF OIL-—-COST=" X*F 

PRINT"ENTER THE COST PER KILOWATT HOUR IN " 

INPUT "YOUR AREA IN DOLLARS";G 

PRINT" ELECTRICITY TO RUN THE OIL PUMP MAY" 
PRINT'COST UP TO ";206*G;''DOLLARS" 

PRINT"IF YOU KNOW THE EFFICIENCY OF THE " 
PRINT'NATURAL GAS HEATER PLEASE ENTER, " 
INPUT"OTHERWISE ENTER 'O''sB 

IF B=0 THEN B=.8:GOTO 400 

B=B* .O1 

Y=((D-E)/70)*( (H*C) /( 100000*B) ) 

PRINT''WHAT IS THE COST PER THERM IN YOUR AREA" 

INPUT I 

PRINT" YOU WLLL REQUIRE AN ESTIMATED ";¥;" THERMS TO HEAT/COST=$";1I*Y 
Z=((D-E)/70)* (H*C) /3405 

PRINT'AND AN ESTIMATED";Z;"KH WILL BE REQUIRED TO HEAT WITH" 
PRINT" ELECTRICITY~-COST=$" ;Z*G 

PRINT: PRINT'SUMMARY:" 

PRINT"MEDIUM", "AMOUNT", "COST" 

PRINT"OIL", :FT=X:GOSUB 1000:FT=X*F:GOSUB 1000:PRINT"" 
PRINT"NATURAL GAS": :FT=Y:GOSUB 1000:FT=I*Y:GOSUB 1000:PRINT'" 
PRINT" ELECTRICITY"; : FT=Z:GOSUB 1000:FT=Z*G:GOSUB 1000:PRINT'" 
PRINT'REMEMBER THAT THESE VALUES ARE ONLY" 
PRINT"ESTIMATES AND WILL DIFFER ACCORDING TO" 
PRINT"'THE INSULATION, BUILDING MATERIAL," 

PRINT" FURNISHINGS, AND CLIMATE." 

END 


1000 FT$=STR$(FT) 


110 


1020 FOR J=1 TO LEN(FT$) 
1040 PRINT MID$(FT$,J,1); 


1050 IF MID$(FT$,J,1)="."' THEN GOTO 1100 
1060 NEXT 
1065 PRINT" ."3;:GOTO 130 


1070 GOTO 1170 

1100 FORK=(J+1)TO(J+2) 

1110 PRINT MID$(FT$,K,1); 
1120 NEXT 

1130 L=LEN(CFT$)-J 

1140 IF L<l THEN PRINT"OO"; 
L150: 1k b=) ‘THEN PRINT" O's 
1170 RETURN 


Listing 4-5: The Air Conditioning Program 


PRINTCHR$(14%7)TAB(40)"AIR CONDITIONING REQUIREMENT CALCULATOR" 
PRINT: PRINT"DETERMINES THE BTU RATING FOR AN AIR " 
PRINT'CONDITIONER/HEATER FOR YOUR HOME" 

PRINT: PRINT" ENTER THE ESTIMATED TOTAL SQURE FEET" 
INPUT"OF EXTERIOR WALL AREA FOR YOUR HOUSE";W 
PRINT"ENTER THE ESTIMATED TOTAL GLASS AREA" 
INPUT'"FOR YOUR HOUSE";G 

PRINT"ENTER THE ESTIMATED TOTAL AREA WITHIN" 
INPUT'THE ROOF CROSS-SECTION";R 

INPUT"ENTER THE NUMBER OF OCCUPANTS";N 
BTU=W*5+G* 35+R* 1 2+N* 100+2000 

PRINT" THE ESTIMATED BTU NECESSARY TO HEAT/AIR" 
PRINT'CONDITION YOUR HOME=";BTU 

PRINT 


Listing 4-6: The Electric Cost Analysis Program 


PRINT CHR$(147);TAB(45)"ELECTRICITY COST ANALYSIS" 
INPUT"ENTER COST PER KWH IN $"5;C 
PRINT "FOR NEXT APPLIANCE, SELECT 1)WATTS" 
INPUT'"2) VOLTS+AMPS" X 
ON X GOTO 50,70 
INPUT"WATTS";W 
GOTO 90 
INPUT" VOLTS , AMPS";V,A 
W=V*A 
PRINT"ENTER APPROXIMATE NO. HOURS PER DAY " 
INPUT’ THIS “APPLIANCE LS USED (2H 
100 KW=(H*360*W) /1000 
110 PRINT'THIS APPLIACNE USES APPROXIMATELY " 
115 PRINT INT(KW);"' KILOWATT HOURS" 
120 PRINT"PER YEAR, AT AN ANNUAL COST OF $";KW*C 
130 PRINT:GOTO 30 


e To calculate the Btu rating for an air conditioner and determine where cuts in electric bills would 
for your home, use the program in Listing 4-9. best be made. 

e Use the simple program in Listing 4-6to track the ¢ You can use additional formulas available in 
yearly cost of operation for electrical appliances building manuals to compute the savings of in- 
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Stalling insulation or the area of a solar collector 
necessary to heat a house of certain dimensions 
and construction. 


TECHNICAL AND SCIENTIFIC CALCULATIONS 


The computer can be used to perform calcula- 
tions needed by those involved 1n many fields from 
navigation to chemistry. 


Aviation 


The private or business pilot will find the fol- 
lowing calculations useful. Some are designed for 
portable programmable calculators so that pro- 
grams may be used while in flight. 

1. Flight plan with wind allowances calculation of 
the heading, speed, fuel, ETA, and so on for a 
trip of multiple legs could be done. 

2. Long-range flight plan: calculations could be 
done for great circle routes and could include 
distance, time, fuel, source. 

3. Atmosphere, speed, temperature and altitude: 
from pressure altitude, a program could calcu- 
late the speed of sound, temperature, pressure 
and density relative to standard sea level. 

4. Prediction of freezing level and lowest usable 
flight level. 

o. Wind components and average vector: 
crosswind and tail or head wind components of 
a single wind vector could be calculated. 
Dead reckoning of position. 

Great circle flying navigation. 

Course correction to fly correct path. 
Rhumbline navigation. 

Unit conversions: length, volume, weight, En- 
glish and metric temperature conversions. 


Se oS 


°F = (9/5) (°C +329) 
°C = (5/9) (PF-32°) 


Several BASIC programs and additional infor- 
mation on aviation calculations may be found in 
Computers for Sea and Sky by Steven J. Rogowski, 
Creative Computing Press, Morristown, N.J. 
07960. 
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Marine Navigation 


Some of the following applications are de- 
signed for use with programmable calculators as 
well as pocket or lap computers so that they can be 
used aboard a small vessel. 

1. Time-speed-distance with current sailing: a 
useful program could solve time-speed- 
distance equations and could consider the cur- 
rent in determining the proper course to steer 
and the speed through the water necessary to 
reach a given destination in a specified length 
of time. 

2. Distance short of, beyond, or to a horizon: a 
program could calculate the distance to the 
apparent horizon as well as the distance to and 
visibility of an object of known height. 

3. Velocity, VMG, and current vectors: given two 
of the following, 1) drift and set of the current, 
2) speed and course through the water, 3) 
speed and course made good, a program could 
calculate the unknown value. 

4. Running fix from two objects: a program could 
calculate a fix of a vessel from bearings of two 
objects. 

o. Planet location. A program could estimate the 
altitude and azimuth of the four navigational 
planets. The GMT (Greenwich mean time) of 
twilight could also be calculated or manually 
inputted. 

6. Rhumbline and great circle navigation calcula- 
tion. 

7. Sight reduction calculation. 

8. Length conversions. (for example, nautical 
miles to statute miles) 

9, Vector addition. 

10. Estimated time of arrival. 

11. Conversion of compass points to degrees. 

12. Area navigation by VOR (very-high-frequency 
omnirange) 

13. Rhumbline navigation. 

14. Dead reckoning of position. 

15. Great circle computations. 

16. Distance from VOR/OMNI. 

17. Course correction. 

18. Distance by two bearings. 


Listing 4-7: The Great Circle Navigation Program 


10 PRINT CHR$(147)3;TABC42)"'GREAT CIRCLE NAVIGATION CALCULATIONS": PRINT 
20 PRINT "ENTER SOUTHER LATITUDES AND EASTERN" 
25 PRINT"LONGITUDES AS NEGATIVE NUMBERS.":PRINT 


30 PRINT"ENTER LATITUDE AND LONGITUDE OF " 
35 INPUT "STARTING POINT";U,W 

40 PRINT"ENTER LATITUDE AND LONGITUDE OF" 
45 INPUT"ENDING POINT";Z,R 

30. PRINTSM=, 01745329 


60 A=SIN(U*M)*SIN(Z*M)+COS (U*M)*COS(Z*M)*COS( (R-W)*M) 
70 D=60*(-ATN(A/SQR(-A*A+1L) )4+1.5708)*57. 29579 
80 C=(SIN(Z*M)-(SIN(U*M)*COS(D/60*M) ))/(SIN(D/60*®M)*COS (U*M) ) 


90 H=(-ATN(C/SQR(-C#C+1))+1.5708)*57.29579 
100 F=SIN(R-W) 
110 IF F>=0 THEN H=360-H 


120 PRINT'THE DISTANCE IS ';D:" NAUTICAL MILES" 
130 PRINT'AT A BEARING OF ";INT(H);" DEGREES." 


19. Conversions between knots, miles, statute- 
miles, kilometers. 

20. Speed computation given distance covered and 
time. 


Many of the above navigation calculations are 
explained in Computers for Sea and Sky, by Steven 
J. Rogowski, Creative Computing Press, Morris- 
town, N.J. 07960. 

The program in Listing 4-7 computes the dis- 
tance in nautical miles and bearing between two 
points on earth. Enter starting and ending latitudes 
and longitudes as decimal degrees. 


Medical Calculations 


Doctors, nurses, technicians and other medi- 
cal personnel may find the following calculations 
useful. 

1. Conversions of weight, length, and volume to 
other units, or English to metric conversion. 
Lung diffusion calculations. 

Blood acid-base status determination. 

Beer’s law calculation. 

Protein electrophoresis: given integration 

counts of a number of protein fractions, the 

percentage of each may be found. 

6. Body surface area estimation. 

7. Oxygen saturation and content. Oxygen con- 
tent and saturation in the blood may be found 


ue WN 


given p0,, pCO,, pH, and body temperature. 


Publications containing computer programs 
and applications of use to the health professional 
include 

Computer in Bwlogy and Medtwine 

Computers in Medicine 

Medical Computer Journal 42 East High St., 

East Hampton, CT 06424 

Physicians Microcomputer Report P.O. Box 

6483, Lawrenceville, NJ 08648 


Surveying Calculations 


Those involved in surveying could utilize the 
following calculations. 

1. Azimuth/bearing traverse: given reference 
coordinates, leg length, azimuth or bearing, 
and quadrant, the endpoint coordinates, de- 
parture, latitude, and total distance may be 
computed. 

2. Slope reduction determinations. 

3. Point of intersection calculation. 


Chemistry 


Chemists and chemistry students may find the 
following calculations useful. 
1. Calculation of requirements to produce a given 
solution. The program in Listing 4-8 will do the 
calculations for you. 
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Listing 4-8: The Stock Solution Computation Program 


PRINTCHR$(147)TAB(50)"STOCK SOLUTION COMPUTATION" 
PRINT: PRINT''COMPUTES THE AMOUNTS OF STOCK SOLUTION AND WATER NECESSARY TO" 


PRINT'PRODUCE A GIVEN SOLUTION" 


PRINT: PRINT"ENTER THESE VALUES:CONCENTRATION OF" 
PRINT"WORKING SOLUTION ,CONCENTRATION OF STOCK" 


INPUT"SOLUTION , TOTAL AMOUNT OF SOLUTION"; PW,PS,QT 
OS=(PW*QT)/PS 
W=QT-OS 
PRINT" THE QUANTITY OF STOCK SOLUTION=";0S 
PRINT'THE QUANTITY OF WATER TO ADD="3W 
100 PRINT:PRINT 
110 END 


2. Calculations of the following parameters, given 
adequate inputs: pH, molality, total atomic 
weights, gas density and pressure, electron 
energies, gravimetric factors, liquid pressure, 
degree of saturation, gram equivalent weight, 
normality, percent composition, mole fraction, 
mole percent, and ionic strength dilution fac- 
tor. 

3. Plotting/simulation of reaction rates, electron 
distribution, and so on. 


Physics 
Those involved with physics will also find the 
computer’s capacity for performing calculations 
useful. Potential uses include the following. 
1. Plotting of potential energy functions, lab data, 
and so on. 
2. Conversions of units. 
3. Solutions to elementary equations: velocity, 
acceleration, momentum, work, power, etc. 
4. Statistical analysis and data compilation. 


An article discussing the use of personal com- 
puters to physicists appeared in Physics Today, De- 
cember 1983, pp. 25-28. The author states “it is 
very likely that most calculations in physics will be 
performed by the home computer in the future,” 
because of the benefit of independence from large 
computer organizations, bureaucracies, and 
economic constraints. He describes a Monte Carlo 
simulation that ran for about a week on his personal 
computer and estimated that the same job would 
have cost $2000 if run on his university CPU. 
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General Purpose Experimental Applications 


Scientists in many fields can use their home 
computers to perform the following types of calcu- 
lations. 

1. Statistical analysis of data: useful statistical 
applications include curve fitting and plotting, 
Chi-square tests, analysis of variance and stan- 
dard deviation, solutions to equations, and cor- 
relation coefficients. 

2. Calculation of tables for a specific application: 
functions that are commonly referred to, yet do 
not have reference tables, could be calculated 
for a number of values, and the results dis- 
played in table form for easy reference. 


In addition to using computers for calculations, 
scientists can interface microcomputers to lab in- 
strumentation and develop automatic data log and 
aquisition systems. They can also develop voice 
input interfaces that could accept data called out by 
a lab technician too busy to manually record data. 


ENGINEERING APPLICATIONS 


Professionals and hobbyists will have use for 
computer programs in the following engineering 
fields. 


Electrical Engineering 


Computers can help those who deal with elec- 
tricity by performing calculations and analyses, and 
by facilitating design work. 

Active high- and low-pass filter design. 


180 PRINT'THE VALUE FOR L="3L 
190 PRINT"THE VALUE FOR Cl="3Cl 
200 PRINT" THE VALUE FOR C2=";C2 
210 PRINT 

220 END 


SIMPLE filters: 


Normalized to design impedance Ro, 


wo =cut-off angular frequency (low-pass or 
high pass) 


Fig. 4-2. Schematics and formulae for simple filters. 


Listing 4-9: The Low-Pass Filter Design Program 


100 PRINTCHR$(147)TAB(45)"LOW PASS FILTER DESIGN PROGRAM" 

110 PRINT: PRINTTAB(10)"SHUNT M-DERIVED FILTER" 

120 PRINT: INPUT "ENTER THE CUTOFF FREQUENCY";F1 

130 INPUT"ENTER THE FREQUENCY OF REMOTE CUTOFF"; F2 

140 INPUT"ENTER THE TERMINATING RESISTANCE":R 

150 L=SQR(1-(F1*F1/(F2*F2) ))*R/(3.14159*F1) 

160 Cl=(1-(SQR(1-(F1*F1/(F2*F2) )))-2)/(4*3.14159*SQR(1-F1*F1/(F2*F2) )*F1*R) 
170 C2=SQR(1-(F1*F1/(F2*F2)))/(3.14159*R*F2) 


wo=centre frequency (band-pass or band stop) 
wo upper cut-off frequency (band-pass or band stop) 


w, =lower cut-off frequency (band-pass or band stop) 


ne C22 


Wo 
Definition: 
x=normalized frequency parameter = = 


v=deviation parameter =x (low pass)=~ + (high pass) 


X"X _ on 
: (band pass)= ——— (band stop) 


v= 


x x 
Design: 
Low-pass and high pass: 
Ro l 
Ls — Cz 
“o wo Ro 


Band-pass and band stop: 
Wo4/LPCp 3 woy/ls Cs =| 


»Cg=nC Lpéent, Cp=& 


Ls= ry 


>| 


Performance: 
Azattenuation (d8)= —8-68589 In /' +ve 
¢ = phase= —arctan v 
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High- and low-pass filters may be designed for 
given center frequency, gain, and Q values for the 
resistors and capacitors in the infinite-gain 
multiple-feedback circuit. Listing 4-9 shows a pro- 
gram that performs these functions. 

This program may be modified and extended 
for use in designing simple filters by the use of the 
schematics and formula in Fig. 4-2. 

Active bandpass filter design. Second- 
order active bandpass filters may be designed using 
a multiple-feedback network. Both high-Q and 
low-Q circuits could be designed. Standard values 
may be selected for easy implementation. 

Chebyshev and Butterworth filter de- 
sign. Chebyshev and Butterworth low-pass filters 
may be designed for specified filter order, termina- 
tion resistance, and corner frequency. 


Listing 4-10: The Network Design Program 


100 
105 
110 
115 
120 
ies) 
130 
135 
140 
150 
160 
170 
180 
190 
195 
200 
rabe) 
220 
230 
240 
250 
260 
ya 8) 
280 
290 
300 
310 
320 
350) 
340 
350 
360 


INPUT" INPUT TERMINALS UNLOADED"; RO 


INPUT" TERMINALS SHORTCIRCUITED" ; RN 
A=-1 


B=RO+1 

C=RO*RN-RI 
Q1=(—B+SQR(B?2-4*A*C) )/(2#A) 
Q2=(-B-SQR(B*2-4*A*C) )/(2*A) 
IF Q1>=0 THEN R3=Q1:GOTO 200 
R3=Q2 


R2=RO-R3 

Ri=RI-R3 

PRINT: PRINT: PRINT 

PRINT" T-NETWORK CIRCUIT" 
PRINT: PRINT" 


FOR) %e1 10.3 
PRINT"! 
NEXT X 


PRINT: PRINT 
END 
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Resonant circuits. The impedance and res- 
onant frequency could be calculated by a program 
for series or parallel resonant circuits whose com- 
ponent values are specified. 

Attenuators. Component values for T and Pi 
impedance matching circuits may be found for 
specified input/output impedances and desired 
loss. Minimum-loss pad matching may be per- 
formed for given impedances. 

T to Pi transformations. T(Pi) networks 
may be transformed to Pi(T) networks having the 
same characteristics. A T network design program 
is shown in Listing 4-10. 

Ladder network analysis. The input im- 
pedance for a ladder network could be calculated; 
the network may be composed of any combination 
of resistors, capacitors, and inductors. 


PRINTCHR$(147)TAB(48)'"'T-NETWORK DESIGN PROGRAM" 

PRINT: PRINT" PROVIDES A GRAPHIC REPRESENTATION OF THE CIRCUI' 
PRINT: PRINT"ENTER THE RESISTANCE OF THE CIRCUIT" 

INPUT"WITH OUTPUT TERMINALS UNLOADED";RI 

PRINT"ENTER THE OUTPUT RESISTANCE WITH THE" 


PRINT"ENTER THE RESISTANCE WITH THE OUTPUT " 


eee anes R-OUT" 
"SR33 "OHM" 


Coil properties. The inductance or number 
of turns for a single or multilayer coil may be found 
given wire diameter and dimensions of the coil. The 
inductance of two parallel, round wires, one form- 
ing a return circuit is given by 


L 


.0041 [2.303 log. , (2 D/d - D/1)] 


where L = inductance (wH) 
D = distance in cm. between centers of 
wires 
d = diameter of wire (cm) 
| = length of conductor (cm) 


Power transformer design. Core weight 
may be calculated for a specified power require- 
ment. For a specified core, area flux density, and 
frequency, the number of primary and secondary 
turns is found. A BASIC program to design power 
transformers may be found in Electronic Design 
News, October 27, 1983, p. 346. 

Rectifier circuits. Full-wave or half-wave 
rectifier circuits may be evaluated for given compo- 
nent values, input voltage, and frequency. The dc 
output voltage and peak-to-peak ripple may also be 
calculated. 

S and Y parameter transformations. A set 
of S(Y) parameters expressed as magnitudes and 
angles may be transformed to a set of Y(S) parame- 
ters. 

Phase-locked loops. Natural frequency, 
damping factor, and loop noise bandwidth may be 
found for either passive or active phase-locked 
loops. Loop gain and component values for the cir- 
cults are required for input. 

Transistor amplifier design. Collector cur- 
rent and sensitivity factors can be computed for 
transistor circuits for specified current gain, supply 
voltage, and resistor values. 

Fourier series. Fourier coefficients may be 
computed for discrete values for a periodic func- 
tion. Sine and cosine coefficients may be found and 
could be used to calculate new values of the func- 
tion. 

Reactive L-Network impedance match- 
ing. Networks that will match any two complex 


impedances may be determined. 

Bilateral design, stability factor, maxi- 
mum gain, and optimum matching. A program 
could compute the maximum gain available and 
the load and source reflection coefficients that yield 
the maximum gain. 

Frequency conversion program. A BASIC 
program to interconvert velocity, period, wave- 
length, and frequency values could make use of 
these commonly-used formulas: 


oe TY 
w = 2rf 
SV 
f= 175 
f= @/2r 
cee. 


where T = period 
f = frequency 
= radian frequency 
= wavelength 
= propagation velocity 


<>eé 


Similarly, frequency and reactance conversions 
may be accomplished with these formulae: 


_ ] ae 
ar 27fC ww 
xX = 2nrfL = ol 

1 1 
C = = 

27riX.. wX. 

2arf 63) 

S 1 

7 27 CX. 

2, ooh 

27rL 


955 timer circuit design. Given the fre- 
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quency duty cycle and either the timing capacitor or 
resistor, a program could calculate the other timing 
component, charge time, discharge time, and 
period of the commonly used 555 stable multivi- 
brator circult. 

Resonance calculations. Resonant fre- 
quency of inductance-capacitance circuit 1s given 
by: 


L—-R°*C 
9a VLC (L—RCC) 


1/(4a° fC) 
1/(47° f L) 


R = series resistance of inductor 


where L = 


Listing 4-11: The Yagi Antenna Design Program 


R. = effective series resistance of capacitor 
f =resonant frequency 


Antenna-design. A given frequency could be 
inputted to a program that would calculate the an- 
tenna dimensions for a dipole, Yagi, or cubical quad 
antenna. The program in Listing 4-11 can be used to 
calculate the dimensions for a yagi antenna to re- 
ceive television, radio, or amateur radio broad- 
casts; the antenna is designed for a specific fre- 
quency. Such an antenna can often receive signals 
from distances not previously approached. If the 
mathematical specifications of the antenna design 
are unclear, refer to an electronic manual for a 
picture. Construction of the antenna is not difficult 
and should cost no more than twenty dollars. 


1O0 PRINTCHR$(147)TABC(45)"YAGI ANTENNA DESIGN PROGRAM" 
20 PRINT: PRINT' INPUT THE FREQUENCY IN MEGAHERTZ FOR" 


INPUT"WHTCH THE 


ANTENNA IS TO BE DESIGNED";F 


PRINT: PRINT: PRINT'FOR";F3; "MEGAHERTZ THE LENGTHS OF THE " 


> PRINT“ELEMENTS ARE:" 


PRINT'ELEMENT NUMBER" ,"LENGTH IN INCHES" 


A= he aoe D= ue oe Be 11.52*A 


ee “A 
R=5*W+X4+G+Y4+L+. 333 
PRINT'L", ,D 
PRINT 2" B 
PRINT’ 3" 3 
PRUENT Gs 2k 
PRIN De cs 
PRINT"6", ,A 
PRINT 7 342 
PRINT O ogks 
PRINT'O", JE 
PRENE TO rat 
INPUT'PRESS RETURN TO CONTINUE" 3 A$ 
) PRINT: PRINT: PRINT'ELEMENT SPACING:" 


PRINT’ ELEMENT NUMBER", "SPACING IN INCHES :" 


PRINT'1-2" ,L 
PRINT" 2-3" ,X 
PRINT’ 3-4" |W 
PRINT" 4-5" ,W 
PRINT'5-6" ,W 
PRINT" 6-7" ,G 
PRINT"7-8",¥ 
PRINT" 8-9" ,W 
PRINT'9-10",h 


PRINT"THE BOOM IS':Cs"INCHES LONG(";C/123; "FEET LONG 


END 


Decibel conversion and voltage to dBm E = voltage 
conversion. Voltage ratio in Decibels 1s given by I = current 
N20 log (E78) Resistor or capacitor color codes. An ideal 
program for the novice in electronics would output 
where E,. = output voltage the value for a resistor or capacitor given the color 
= input voltage from a component. 


IN : ; 
Inductance Bridge calculation. Given this 


Such computations would be helpful to the serious design, 
audiophile. Also of interest to the audiophile would 

be a formula used to compute the inductance of a 

Straight wound speaker wire: 


L = .0021[2.303 log . (41/d)—.75] 


10 


where L = inductance (4H) 
d = diameter of wire (cm) 
| = length of conductor (cm) 


0 INPUT 


Evaluation routine for a program of if any three values are known the fourth may be 
Boolean function. AND, OR, NOT, and the other calculated: 
logic statements could be evaluated as a program: 
the circuit status at each step would be outputted. L,=L, L/L, 


Ohm’s law calculation. A computer can be L, = LL/L, 
used to determine the unknown value. L, =LL/L, 
Fa —sbeiy oe 
4 2.3 ] 
E =IR RL Equivalent Impedance Calculation. 
The program in Listing 4-12 will calculate equiva- 


where R = resistance (ohms) lent impedances. 


Listing 4-12: The RL Equivalent Impedance Program 


100 PRINTCHR$(147)TAB(50)"RL EQUIVALENT IMPEDANCE" 

110 PRINT:PRINT'THIS PROGRAM CAN ANSWER A QUESTION SUCH" 
115 PRINT"AS "WHAT IS THE EQUIVALENT IMPEDANCE OF" 

120 PRINT"A 300 OHM RESISTOR AND A 30 MILLIHENRY" 

125 PRINT" INDUCTOR AT A FREQUENCY OF 2000 HERTZ?'" 

130 PRINT 
140 INPUT"ENTER RESISTANCE IN OHMS";R 

150 INPUT"ENTER INDUCTANCE IN MILLIHENRIES"; IND 

160 INPUT"ENTER FREQUENCY" ;FR 

170 EQU=(2*3.141582*FR*IND*.001)*(1/SINCATN((2*3.141592*FR*IND*.001)/R))) 
180 PRINT'THE EQUIVALENT TMPEDANCE=" 3 EQU 


Listing 4-13: The A/C Voltage Divider Program 


100 PRINTCHRS(147)TAB(45)"A/C VOLTAGE DIVIDER CALCULATIONS" 
110 PRINT:PRINT"DETERMINES THE MODULUS AND PHASE" 

1200 DNPUT ENTER: LHR: ANGULAR: FREQUENCY =A 

130 Rl=lE6:R2=0: 11=0: 12=1/(CA-1E-6) 

140 R=(R2*CR14R2)41 2" 1 1412) /(R14R2)-CRIFR2)4+011412)* (11412) ) 
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150° LSC SR 2" (11412 SCR TER 2) 12 ye CCRIAR DF 24-0119 12) 2) 


160 C=SQR(R* 24172) 

170 D=180*ATNCT/R)/3.14159 

180 PRINT'ANG. FR.", "MODULUS", ,""PHASE" 
190 PRINT A,C,D 

200 PRINT 

210 INPUT"'CALCULATE ANOTHER (Y/N)"3A$ 
220 IF AS="Y" THEN 120 

230 END 


A/C voltage divider calculation. The pro- 
gram in Listing 4-13 will calculate the modules and 
phase of the angular frequencies you enter. 

Logic circuit analysis. The purpose of the 
program in Listing 4-14 is to simulate the operation 
of a simple logic circuit. The circuitry (gates and 
connecting lines or nodes) is described to the com- 
puter along with the input states to the circuit (on 
and off are represented as 1 and 0 respectively). 
Next, the program determines what the resultant 
states of nodes will be throughout the circuit fol- 
lowing all logic “decisions.” Essentially, this pro- 
gram allows you to design and test a logic circuit 
without breadboarding it. 

The program recognizes the following gates: 
AND, OR, INV, NAND, exclusive OR (abbreviated 
XQOR), and exclusive NOR (abbreviated XNOR); up 
to 64 gates and 255 nodes may be used in one 
circuit. To begin, the program will allow you to 
input acircuit; answer | for anew circuit to the first 
question. Next, the program will request a /abel for 
the first gate, which may be any gate in the circuit. 
This label is simply a distinguishing number (any 
number) you want for the gate. Now, input the gate 
type AND, OR, etc.), and then input the identifying 
nodes connected to the gate (first the output node 
and then the input nodes). For example, to describe 
the illustrated circuit, the following sequence could 
be used: 


SELECT: 
CIRCUIT ?1 


1) NEW CIRCUIT 2) OLD 


ENTER THE LABEL?1 


120 


ENTER THE GATE? NOR 
ENTER THE NODE?3 
ENTER THE NODE?1 
ENTER THE NODE?2 
ENTER THE NODE?0 


(0 is used here to mean go to next gate) 


ENTER THE LABEL?2 
ENTER THE GATE?INV 
ENTER THE NODE?5 
ENTER THE NODE?5 
ENTER THE NODE?3 
ENTER THE NODE?0 


ENTER THE LABEL?3 
ENTER THE GATE?NAND 
ENTER THE NODE?6 
ENTER THE NODE?5 
ENTER THE NODE?3 
ENTER THE NODE?0 


Remember to enter the output node for each gate 
first, followed by the input nodes. 

After describing the circuit, the logic states of 
various nodes will be described. Simply type the 
number of the node and its initial state (1 or QO). 
Usually, only the input nodes are described. 

Finally, the program analyzes the operation of 
the circuit, outputting the state of each node after 
the circuit has been completed. The circuit is 
analyzed according to standard logic tables. In this 
manner, the professional or hobbyist can test cir- 
cuit operation without breadboarding. 


Additional applications for electrical en- 
gineers. The following list includes a number of 
other areas in which the microcomputer can make 
the lives of those who work with electricity easier. 


Listing 4-14: The Logic Circuit Analysis Program 


10 PRINT CHR$(147)TAB(45)"LOGIC CIRCUT ANALYSIS PROGRAM" 


30 DIM F(3000) 

40 FOR X=1 TO 8 

5O READ X(X) 

60 NEXT X:READ Al,A2 

70 BS="'AND OR INV NANDNOR XOR XNOR" 
80 PRINT 

90 PRINT'SELECT: 1)ENTER A CIRCUIT" 


100 PRINT" 2)ENTER SPECIFIED STATES FOR NODES" 
110 PRINT 3) ANALYZE CIRCUIT OPERATION" 

120 PRINT" 4)QUTPUT THE STATES OF NODES" 

130 PRINT" 5)OUTPUT THE CIRCUIT" 

135 PRINT" 6)END PROGRAM": INPUT "SELECT ONE"; A3 


140 ON A3 GOTO 150,350,500, 1300, 1500, 1720 
150 PRINT'SELECT: 1)NEW CIRCUIT, 2)OLD CIRCUIT " 
hos INPUI Xie Xe? THEN: 190 

160 FOR A4=8 TO 511 

170 FCA2+A4)=0 

180 NEXT A4 

190 PRINT 

200. INPUT “ENTER: THE LABEL “sA5zA5=87A5 
205 IF A5<=O0 THEN 80 

210 FOR A4=0 TO 7 

220 FCA5+A4+A2)=0 

230 NEXT A4:A6=0 

240 INPUT "ENTER THE GATE ";W$ 
250 IF W$="REDO" THEN 190 

260 IF W$="AND" THEN A6=1 

261 IF W$="0OR" THEN A6=2 

262 IF W$="INV" THEN A6=3 

263 IF W$="NAND" THEN A6=4 

264 IF W$="NOR" THEN A6=5 

265 IF W$="XOR" THEN A6=6 

266 IF W$="XNOR'" THEN A6=7 

270 IF A6=0 THEN 240 

300 FCA2+A5)=A6:A5=A5+1 

310 INPUT"ENTER THE NODE ";A6 
320 IF A6<>0 THEN 300 

330 GOTO 200 

350 PRINT''SELECT: 1)REDO OR BEGIN" 
B05. NPUL” 2)CONTINUE "3X 
360 IF X=2 THEN 400 

370 PRINT: FOR A4=1 TO 255 

380 FCA1+A4)=255 

390 NEXT A4 

400 INPUT'ENTER THE NODE '';A6 
405 IF A6<=0 THEN 80 

410 INPUT"ENTER THE STATE '3A7 
420 FCA1+A6)=A7 

430 GOTO 400 

500 A8=0 

520 A8=A8+1:PRINT"NO."3A8 

525 A9=0 

530 FOR A4=1 TO 63 

540 A6=F(A4*8+A2) 

545 IF A6=0 THEN 950 
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550 ON A6 GOTO 600,650, 700, 750, 800, 850, 900 
600 B=0:GOSUB 1180 

610 GOTO 920 

650 B=1:GOSUB 1180 

660 GOTO 920 

700 Bl=FCA1+F(A2+2+8*A4 ) ) 

710 GOSUB 980 

720 GOTO 920 

750 B=0:GOSUB 1180 

760 GOSUB 980 

770 GOTO 920 

800 B=1:GOSUB 1180 

810 GOSUB 980 

820 GOTO 920 

850 GOSUB 1110 

860 GOTO 920 

900 GOSUB 1110 

910 GOSUB 980 

920 IF Bl=F(A1+F(8*A44+1+A2)) THEN 950 
930 A9=1 

940 F(A1+F(A2+8*A4+41) )=B1 

950 NEXT A4 

960 IF A9=1 THEN 520 

970 GOTO 80 

980 IF Bl>1 THEN 1000 

990 Bl=1-Bl:RETURN 

1000 Bl=257-Bl:RETURN 

1110 B2=F(A1+4+F(8*A4+2+A2) ) 

1120 B3=F(A1L+F(8*A44+3+A2) ) 

1130 IF B2<>0 AND B<>O THEN 1140 
1135 IF B2=0 OR B=O THEN B1=B2+B3:RETURN 
1140 IF B2-1<>0 AND B3-1<>0 THEN 1150 
1142 IF B2-1=0 OR B3-1=0 THEN B1=B3*B2:GOSUB 980 
1145 RETURN 

1150 Bl=1 

1160 IF B3=B2 THEN B1=O 

1170 RETURN 

1180 Bl=1-B 

1190 FOR B4=2 TO 7 

1200 B2=F(8*A4+B4+A2 ) 

1210 IF B2=0 THEN 1260 

1220 B5=F(B2+A1) 

1230 IF B5<>B THEN 1240 

1235 IF B5=B THEN B1=B:RETURN 

1240 IF B1l+B5<>257 THEN 1250 

1245 IF B1l4+B5=257 THEN BlL=B: RETURN 
1250 IF B5=1-B THEN 1260 

1255 IF B5<>1-B THEN B1=B5 

1260 NEXT B4 

1270 RETURN 

1300 A9=1 

1310 FOR A4=1 TO 255 

1320 IF FCA4+A1)>1 THEN 1400 

1330 PRINT A4;": "3F(A44A1) 

1400 NEXT A4 

1410 PRINT 


1420 GOTO 90 
1500 FOR A4=1 TO 63 
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A6=F (8*A4+4+A2+B4 ) 

IF A6=0 THEN 1700 

PRINT A4;TAB(4) 

A9=10:PRINT MID$(B$,A6*4-3,4); 
FOR B4=1 TO 7 

A6=F( 8*A44+A24+B4 ) 

IF A6=0 THEN 1610 

PRINT TAB(A9);A6; 

A9=4+A9 

NEXT B4 

PRINT 

NEXT A4 

GOTO S90 

DATA 1,4,6,9,13,16,19,23, 768.1025 


1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1700 
1710 
1720 


e Transistor configuration conversion 

e Resistive attenuator design 

e Smith chart conversions 

e Phase shift oscillator design 

¢ Dc bias analysis 

e Waveform limits determination 

e Plotting of waveforms 

e Plate resistance/transconductance calculations 

e Gauss calculations 

e Reactance chart calculations 

¢ Design of controlled rectifier circuits 

e Integrated circuit current-source design 

e Solution of resistive networks 

e Rf amplifier analysis 

e Bipolar junction transistor analysis 

¢ Complex matrix calculations as used In electrical 
engineering 

e Wheatstone bridge design 


Civil Engineering 
Civil engineers will find small computers use- 
ful for performing the following functions. 
© Moment of inertia calculation 
e Vector statics 
e Section properties 
e Stress on an element or beam 
e Static equilibrium about a point 


Chemical Engineering 


Chemical engineers can use small computers, 
for the following: 


e Ideal gas equation of state 

e Conservation of energy calculations 
e Heat exchanger analysis 

e Curve fitting 

e Hydrocarbon combustion calculations 


Machine Design 


Machine designers can use computers to do 
the following: 
e Constant acceleration calculations, relation to 
time and velocity. 
e Kinetic energy determination 
e Critical shaft speed calculation 
e Cam design functions 
e Gear and spring calculations/design 
e RPM/torque/power computation 
e Tachometer/dwell meter calculation: your os- 
cilloscope can be converted into a tachometer and 
dwell meter in conjunction with your computer. 
The following information must be input to the 
computer to determine engine RPM and dwell 
angle: 
a. Number of cylinders in the engine 
b. Interval in milliseconds for open ignition 
points 
c. Interval in milliseconds for closed ignition 
points 
Factors a and b are determined using the oscillo- 
scope. (RPM may also be calculated using the fac- 
tors of tire diameter, gear ratio, and vehicle speed. ) 


RPM x No. Cylinders 


ignition pulse frequency = 120 
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Chapter 5 


Educational Applications 


One of the most important uses for a personal com- 
puter is certainly education. The acronym CAI, 
which stands for Computer Assisted Instruction, 1s 
often used. Not only can the computer serve as a 
drill and practice machine for teaching subjects 
ranging from the alphabet to Schrodinger wave 
equations, but it can teach the fundamentals of com- 
puter programming and prepare the learner for a 
career and for the computerized future. 

Needless to say, we all have memories of 
learning addition and subtraction, repeating spell- 
ing words until we spelled them correctly, and 
memorizing dates of important historical events. 
Most of us considered this to be one of the boring 
essentials of elementary education, and our atten- 
tion span was accordingly short. 

With the addition of the computer to education, 
this is no longer the case. Although the subject 
matter has not changed, the method of drill and 
practice has become much more entertaining with 
the computer. Countless studies have shown that 
computerized education makes learning more in- 
teresting and is more effective. The task of learning 


school subjects has become colorful, indi- 
vidualized, and in some cases exciting. The stu- 
dents have instant feedback from the computer so 
that they know whether their answers are right or 
wrong and can build from that point; this kind of 
immediate feedback has been shown to be an effec- 
tive learning tool. 

Computer programs designed for drill and 
practice are usually capable of providing questions 
at various levels of difficulty. With simple multipli- 
cation, for example, problems with single digit, 
double digit, or even triple digit (or more) multipli- 
cation can be provided. In this way, the student 
learns his basic multiplication tables before tack- 
ling 472 x 952. The computer can either randomly 
generate these problems or choose them from a 
large collection stored in memory. As the student 
masters a certain number of problems at the begin- 
ning level, he can advance at his own pace to suc- 
ceeding levels. If he encounters difficulty at a par- 
ticular level, the computer provides more of the 
same kinds of problems or offers help. The com- 
puter can even be programmed to remember what 
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level a student has achieved and can begin from that 
point the next time he uses the program. 

Each time the student answers a question, the 
computer informs him whether the answer ts right 
or wrong. If the answer is correct, the student can 
be awarded witha picture of a smiling face, a color- 
ful, animated display, or an encouraging message. If 
the student responds incorrectly, the computer of- 
fers a gentle correction, which may be humorous to 
keep the learning experience enjoyable rather than 
painful. 

Computer drill and practice systems have been 
applied to every educational area from preschool to 
college level. Some programs make use of a com- 
puter graphics for those situations in which “a pic- 
ture 1s worth a thousand words.” Newer systems 
make use of random-access video disc players in 
which short video segments can be selected by the 
computer. 

Certainly one of the best ways to learn about 
computer operation and programming 1s to pur- 
chase a personal computer. Not only can a child 
learn how to program computers to do simple (or 
even complex!) tasks, but he can also learn how to 
think logically and how to draw conclusions based 
on fact and analysis rather than on guesswork or 
emotions. To be able to define and analyze a prob- 
lem, and develop a set of computer instructions to 
solve it is a considerable accomplishment and is 
certainly applicable in many areas other than com- 
puter programming. Children and adults also need 
to become familiar with computer operation, 
capabilities, and programming in preparation for 
our increasingly computerized world. 

Caveat emptor. Software publishers have dis- 
covered that there’s no surer way to a parent’s 
pocketbook than to sell the notion that using a 
personal computer will improve a child’s mind. If 
you intend to purchase a “professionally” prepared 
program, ask for a demonstration before spending 
that $30. Beware of flimflam floppies, snakeoil, and 
superhype. You may want to consult Software Re- 
ports, which evaluates 382 educational programs in 
20 subject areas in terms of content, ease of use, 
entertainment, and other criteria. It’s available 
from many computer stores and by mail from Allen- 


126 


bach Industries, 2101 Las Palmas Dr., Carlsbad, 
CA 92008. Additionally, many of the popular home 
computing magazines carry regular reviews of edu- 
cational software. 


APPLICATION IDEAS 


The educational uses for personal computers 
are unlimited; a few of the possible ways of using 
the computer to instruct yourself, your children, or 
your friends include the following. You may wish to 
incorporate these ideas in programs that you can 
sell to others. 


e Create a program describing how to program 
computers in BASIC or another language such as 
assembly language or FORTRAN, etc. with 
step-by-step examples. 

e Create astory building program for youngsters in 
which the computer randomly selects individual 
story parts and combines them to produce a dif- 
ferent story each time. Questions could be asked 
to test reading comprehension, grammar, and 
writing skills. For example, the program could 
produce a personalized story for a child using his 
or her name. Occasionally, questions such as this 
should be displayed: 


Johnny, should I write the next sentence as 


1. “Johnny and I went to the park.” 
or 
2. “I and Johnny went to the park.” 


If the child answers correctly, the computer 
reply could be “O.K., that’s correct,” and a 
wrong answer could be explained—“No that’s 
wrong. The person who is talking should place 
the “I” last, after the names of other people.” 

e Create an [.Q. builder program to familiarize 
people with the types of questions and problem 
solving methods used on tests such as the 
Scholastic Aptitude test, Civil Service tests, and 
the American College Assessment test. Re- 
search has shown that familiarization with the 
tests can improve performance considerably. 
Sample questions are readily available in test- 
preparation books. 


e Create a future-potential evaluation program de- 
signed to quiz high school or college students 
about their talents, interests, and abilities. The 
program could direct them toward promising 
careers based upon this information. 

Computerize psychological questionnaires, 
which are often found in popular magazines and 
books for recreational and education use. Tests 
particulary suited for computerization are those 
requiring tedious calculation to analyze. For in- 
stance, this quiz is designed to test your “happi- 
ness quotient” and could be easily computerized: 

Answer each question as true or false. 


1. My work is usually fulfilling or in- 
teresting. 

2. I have a good ability to relax. 

3. I can enjoy happiness in little things 
easily. 

4. I seldom envy other people. 

5. My moods have great fluctuation. 

6. I have a great desire to change either 
my location, family situation, or job. 

7. LTusually sleep well and don't feel tired 
in the morning. 

8. I periodically “blow my top” without 
knowing the real reason. 

9. I am usually a pessimistic person. 

. Icannot have happiness without others 

being around me. 


Scoring: 

Start with zero, add one point to each true 
answer to questions 1, 2, 3, 4, 7andadd one point 
for each false answer to questions 5, 6, 8, 9, 10. 
Multiply the total by 10 to determine percentage 
happiness (average score is approximately 50). 

An ambitious programmer could program 
the computer to print out an analysis of the sub- 
ject based on his answers. Such a program would 
make use of stock phrases to be used for many 


possible combinations of answers and could read 
like this: 

If you don’t derive much pleasure from little 
things or if you regularly lose your temper (3 and 
8), you should give some attention to your at- 
titudes. Is your social situation the cause of the 
trouble (6) or 1s it your job situation (1)? Often, 
the simple recognition of this difficulty will serve 
to clear up the situation. The person who is truly 
happy can find happiness while alone (10) and 
isn’t envious (4). The moody person (5 and 9) can 
often benefit from the advice of a counselor. 

e Create a spelling program that would allow you to 
input and store words. Words would be randomly 
selected and flash on the screen from .1 to 10 
seconds. The player must then type in the word 
from memory. 


COMPUTER ASSISTED INSTRUCTION 


Computer assisted instruction (CAI) refers to 
the use of a computer as a teaching device. 
Graphics, text, or questions can be presented on 
the screen. The simple program presented is de- 
signed to ask a question of any subject, wait for a 
response in Listing 5-1, determine whether or not 
the answer was correct, and keep track of progress. 
Two incorrect answers are allowed before the cor- 
rect answer is given; change line 100 if this is not 
desired. 

Sample data for a quiz about computers could 
be as follows: 


300 DATA IS YOUR COMPUTER CON- 
SIDERED A MICROCOMPUTER OR A 
MINICOMPUTER, MICROCOMPUTER 


310 DATA WHAT DOES CPU STAND FOR, 


CENTRAL PROCESSING UNIT 


The question comes first in the DATA statements 
and 1s immediately followed by a comma and the 
answer. 


Listing 5-1: General CAI Program 


IOGER 


2 PRINTCHR$(147)TAB(45)"COMPUTER ASSISTED INSTRUCTION" 
3 REM QUESTIONS AND ANSWERS ARE CONTAINED IN THE DATA STATEMENTS 
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5 PRINT:PRINT'TO STOP AT ANY POINT TYPE 


'STOP' AS AN ANSWER" 


7 Y=0:2=0:N=3:REM N MUST EQUAL THE NUMBER OF DATA STATEMENTS 


15 FORA=1 TO N: Y=] 

20 READ AS,BS 

30 PRINT AS 

40. INPUT Css iP Co="SIOR”. THEN, 150 
50 IF C$=BS THEN GOTO 140 

So AGOEUr POO 

60 GOTO 100 

LP Ve?“ PaEN 30) 

120 GOTO 40 

) PRINT"THE ANSWER WAS:":PRINT B$:Z=Z+] 


PRINT"INCORRECT ANSWER...PLEASE TRY AGAIN": Y=Y+1 


140 NEXT A 

145 IF A>N THEN A=N 

150 PRINT"YOU ANSWERED"; A-Z;"OR"; (A-Z)/N*1003"% QUESTIONS CORRECT" 
170 PRINT’ AND":Z;"QUESTIONS WERE ANSWERED INCORRECTLY" 

180 INPUT'TRY AGAIN"S5A$ 

LOO. TP AS="YES* THEN 7 

200 END 

300 


DATA IS YOUR COMPUTER CONSIDERED A MICROCOMPUTER OR MINI COMPUTER 


305 DATA MICROCOMPUTER 
310 DATA WHAT DOES CPU STANAD FOR,CENTRAL PROCESSING UNIT 
315 DATA HOW MANY BYTES IN A KTLOBYTE, 1024 


COMPUTER TUTOR 


You can use your computer to assist you in the 
memorization of lists, vocabulary words, and other 
types of abstract information. For instance, the 
computer could quiz you in flashcard fashion from a 
list of vocabulary words, displaying each 
randomly-selected word individually. Once you 
have glanced at a word, and attempted to recite the 
definition to yourself (or to the computer), press 
the enter or return key. The definition could be 
automatically displayed afterwards at this point. I[f 
you did not know the correct definition, you could 
type “w’ (wrong) to indicate this mistake, and the 
word and definition could be stored for review. If 
you were right, you would simply press the enter or 
return key and the next word would be displayed. 
Additionally, the number and percentage of correct 
answers could be maintained. 

The high school or college student should find 
computerized quizzes helpful in memorizing such 
information as 

1. Historical names, dates, and places— 
presidents, authors, inventors... 

Parts and functions of the anatomy 
Mathematical or chemical formulae 
4. Verses in literature 


wo 
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Spellings or definitions of difficult words 
Trigonometric identities 
Geography—states, capitals, countries 
Technical and scientific terminology 
Anglo/metric unit conversions 


ee? 


EDUCATIONAL SIMULATIONS 


Because of the ability of the computer to per- 
form calculations rapidly, they are well-suited to be 
used for educational and mathematical simulations. 
Simulations for educating young people include the 
following: 

The Manhattan Indian Problem. This 
simulation teaches the principle of compounded 
interest. As the story goes, the new world settlers 
paid the Indians $24 for the entire island of Man- 
hattan in 1626. Today, this property 1s worth mill- 
ions of dollars. But, what would have happened if 
the settlers had deposited the $24 in a savings 
account at 6% interest compounded daily? How 
much would that account be worth today? A com- 
puter generated chart listing the value of the ac- 
count after each decade would serve to illustrate 
the geometrical growth rate involved and the sur- 
prising answer to the Manhattan Indian Problem. 
Use the formula A, = A(1+r) where A, = value 


acquired (capital + interest), A = original invest- 
ment, v = interest rate, and n = number of years. 

The growth of an amoeba colony. This 
simulation simulates the growth of a colony of 
amoebas (one-celled organisms) in a jar with a lim- 
ited food supply. The reproduction rate will cause 
the colony population to double per unit time. The 
formula for geometric progressions is 


q-1 


where S = sum, a =the first term (in this case = 1), 
q = the ratio for successive values (in this case = 2 
because the colony doubles with each generation). 
However, pollution and limited food supply will 
decrease colony size at an increasing rate. Other- 
wise, within one month’s time, a single bacterium 
(about one tenth of a millimeter in diameter) divid- 
ing at a rate of five times a day would produce a 


volume of organisms equal to one million times the 
volume of the sun, provided food and space were 
available! A numerical listing or plot of the popula- 
tion versus time could be generated by the com- 
puter. Will the colony reach equilibrium (a stable 
state)? Along parallel lines, simulations of a large 
scale (for example, ecological balance in a forest) 
could be undertaken. 

The laws of physics. The demonstration of 
some law of physics could take the form of graphical 
illustrations of planetary orbits, acceleration due to 
gravity, motion of a pendulum, and so on. 

A popular physics demonstration program 
called “The Lunar Landing Simulation” is pre- 
sented in Listing 5-2. In this simulation, the learner 
must control the flight of an Apollo moon lander 
under the influence of gravity. Limits on oxygen, 
food, and fuel supply must be contended with also. 
Similar programs have been written to graphically 
simulate the piloting of an airplane. 


Listing 5-2: The Lunar Landing Simulation Program 


5 SS$=CHR$(171)+CHR$(113)+CHR$( 179) 


10 PRINTCHR$(147)TAB(48)"LUNAR LANDING SIMULATION" 


DOP RUNG sates ese 
30 PRINT 

40 PRINT"DO YOU WANT INSTRUCTIONS(Y/N)" 
50 INPUT A$ 

60 IF A$="N" THEN 300 

70 PRINT 


80 PRINT"YOU ARE LANDING ON THE MOON AND HAVE" 


PRINT"TAKEN OVER MANUAL CONTROL 500 FEET" 
PRINT'ABOVE A GOOD LANDING SPOT. YOU HAVE A" 
PRINT" DOWNWARD VELOCITY OF 50 FEET PER SECOND" 
PRINT'AND 120 UNITS OF FUEL REMAIN." 
PRINT 
PRINT'HERE ARE THE RULES THAT GOVERN YOUR" 
PRINT'SPACE VEHICLE:" 
PRINT"1) AFTER EACH SECOND, THE HEIGHT, " 
PRINT’ VELOCITY, AND REMAINING FUEL WILL" 
PRINT" BE REPORTED:" 
PRINT"2) AFTER THE REPORT, A QUESTION MARK " 
PRINT" WILL APPEAR ON THE SCREEN. ENTER THE" 
PRINT" NUMBER OF UNITS OF FUEL YOU WISH TO" 
PRINT' BURN DURING THE NEXT SECOND. EACH" 
PRINT" EACH UNIT OF FUEL WILL SLOW YOUR " 
PRINT’ DESCENT BY 1 FOOT PER SECOND." 
PRINT: INPUT "PRESS RETURN TO CONTINUE"; A$ 
PRINT'3) THE MAXIMUM THRUST OF YOUR ENGINE IS" 
PRINT" 30 FT/SEC/SEC OR 30 UNITS OF FUEL" 
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215 


600 


FO 
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PRINT" PER SECOND." 

PRINT"4) WHEN YOU CONTACT THE LUNAR SURFACE," 
PRINT" YOUR DESCENT ENGINE WILL AUTOMATIC -" 
PRINT" ALLY CUT OFF AND YOU WILL BE GIVEN A" 
PRINT" REPORT OF YOUR LANDING SPEED AND" 
PRINT" REMAINING FUEL." 

PRINT"5) IF YOU RUN OUT OF FUEL, THE '?' WILL" 
PRINT" NO LONGER APPEAR, BUT YOUR SECOND-BY" 
PRINT" SECOND REPORT WILL CONTINUE UNTIL" 
PRINT" YOU CONTACT THE LUNAR SURFACE." 

PRINT 

PRINT"BEGIN LANDING PROCEDURE...... y 

PRINI'G: O00 . SEU Ck" 

PRINT 

PRINT’ SECs HEETS SPEED: ‘FUEL: DISTANCE:  " 
PRINT 

T=0 

H=500 

V=50 

F=120 

IF B=O THEN 420 

PRINT T;TAB(5)INT(H);TABC12)INTCV);TABCL7)INT(E) 
PRINT TAB(22)"1I";TAB( (H/37+23) )3SS$ 

GOTO: 436 

PRINT T;TABC5)INT(H);TAB(12)INT(V);TAB(17)INT(F); 
PRINT TAB(22)"1'"'sTAB((H/37+24) )3SS$ 

INPUT B 

IF B<O THEN 600 

IF B>30 THEN 600 

IF B>F THEN 480 

GOTO 500 

B=F 

V1=V-B+5 

F=F-B 

H=H-.5*(V4+V1) 

IF H<=0 THEN 620 

T=T+1 

V=V1 

IF F>O THEN 390 

IF B=O THEN 590 

PRINT" ** OUT OF FUEL **" 

PRINT T;TAB(5)INTCH);TAB(12)INTCV) sTABC17)INT(F); 
PRINT TABE22)"1"'= TABC CH/3 7423) )2SS5 

B=0 

GOTO 500 

PRINT" CONTACT #3" 

H=H+.5*(V+V1) 

IF B=5 THEN 670 
D=(-V+SQR(V*V+H*( 10-2*B) ))/(5-B) 

GOTO 680 

D=H/V 

V1=V+(5-B)*D 

PRINT" TOUCHDOWN AT';T+D3"SECONDS" 
PRINT'"LANDING VELOCITY="3V1;"FT/SEC." 

PRINT F;"UNITS OF FUEL REMAINING." 

IF V1<>0 THEN 750 

PRINT’ CONGRATULATIONS--A PERFECT LANDING!" 


740 
750 
760 


IF ABS(V1)<5 THEN 780 
PRINT'** SORRY, BUT YOU BLEW IT **" 


PRINT'YOUR LICENSE WILL BE RENEWED...LATER" 


770 PRINT"APPROPRIATE CONDOLENCES WILL BE SENT TO " 
775 PRINT'YOUR NEXT OF KIN." 

780 PRINT'ANOTHER MISSION"; 

790 INPUT A$ 

800 IF A$="YES" OR A$="Y" THEN 300 

810 PRINT 

820 PRINT"CONTROL OUT" 

830 PRINT 


END 


Large Scale Simulations 


Simulations on a large scale that require ex- 
tensive preparation have also been accomplished on 
personal computer. These include the following. 

The acoustics of a room. The acoustics of a 
room could be mathematically simulated if such 
parameters as the dampening effects of the walls, 
the shape of the room and its contents, the location 
of the sound source were provided; this could be 
useful to the architect or stereo-listening perfec- 
tionist. For example, in designing a small stereo 
listening room or studio, concentrations of standing 
waves Cause unequal resonances in different spots 
within the room. To reduce the nonuniformity of 
standing waves at lower frequencies, room propor- 
tions must be carefully controlled to insure op- 
timum diffusion of sound. Standing waves in a rec- 
tangular room are governed by a simple equation 
that could be modeled on your personal computer: 


f(n,, n., h,) = (c/2) [(n,/1)° + (aw) + (n, /byY] ” 


where c = velocity of sound, and 1 = length, 
w=width, h=height of the room; the n’s are the 
mode numbers; the lowest mode number (n=1) 
represents the lowest frequency resonance ap- 
pearing, governed by the dimension, and higher n’s 
represent higher frequency resonances. To calcu- 
late the frequency of a standing wave along one axis 
of the room, you set the n values for the other two 
axes equal to zero. For example, if n, =1 and the 
others equal zero, the formula will give the lowest 
frequency standing wave along the length of the 
room. When two terms are non-zero, the standing 
waves are tangential. To obtain uniformity, the 


tangential waves are most desirable, the oblique 
waves are next, and the axial waves are least desir- 
able. Thus, by using this equation, you can adjust 
room dimensions to provide the most even spacing 
of axial standing waves together with a preference 
for tangential waves, thereby allowing the greatest 
uniformity in frequency. 

A simulation of world dynamics. This 
simulation, which is similar to Jay Forrester’s 
Limits to Growth computer simulation, could be 
accomplished on a small scale. World dynamics 
involves the interaction of population, pollution, 
resources, and so on to predict future outcomes. 

A simulation of astronomical and physi- 
cal theories. This kind of simulation could possi- 
bly be accomplished with a personal computer sys- 
tem. Of course, the memory requirements would 
be very large, and simulation time could be hun- 
dreds of hours. See the article “Doing Physics with 
Microcomputers” in Physics Today, December 
1983, pp. 25-28. The author describes a Monte 
Carlo simulation of the three dimensional Ising 
model for study of phase transitions. 

A simulation of automotive fuel 
economy. This simulation could include such fac- 
tors as fuel injection, fuel additives, pollution 
monitors, etc. 

A simulation that stages yourown World 
Series or Super Bowl. You could use statistical 
techniques to simulate a game or series of games 
using stars whose performances are based on their 
career averages. 


ADDITIONAL CAI IDEAS 
Examples of teaching programs for a variety of 
levels are listed on the following page. 
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Elementary math flashcards. Programs 
designed to increase speed and efficiency in basic 
mathematics (for example, addition and multiplica- 
tion) in which a time limit would be set for answer- 
ing a question. 

World problems. A program designed to 
output “random” word problems 1n mathematics for 
practice. 

Rhymes and riddles. In this learning game, 
young children could try to unscramble words to 
form a line from a nursery rhyme or an answer to a 
riddle. 

Fractions. A drill program in recognizing 
common denominators and adding and multiplying 
fractions. 

Spell. A program that teaches the student to 
recognize commonly misspelled words. 

Roots. A guessing/learning game in which the 
student must guess the square or cube root of a 
random number. 

Kinema. A program in physics that helps the 
student learn to calculate the path of a projectile. 


Listing 5-3: The Multiplication Drill Program 
REM MULTIPLICATION DRILL PROGRAM 


Gasvol. A plotting/calculating program that 
draws pressure/volume diagrams of a gas (chemis- 
try and physics use). 

Logic reasoning. This program tests the 
student on conditional statements, hypotheses, 
conclusions, deductions, fallacies, and definitions. 

Balance. A drill program on balancing chemi- 
cal equations. 

Metric. An exercise in converting between 
the English and metric systems of units. 

Bases. A demonstration program in teaching 
how to do conversions from one numerical base 
system to another. 

Multiplication drill. The program in Listing 
o-3 randomly generates single digit multiplication 
problems for practice in memorizing the multipli- 
cation tables. It has a variety of randomly selected 
responses to right and wrong answers and also 
keeps score. Problems that are answered incor- 
rectly are stored and asked again at the end of the 
quiz. 

Speed reading/tachistoscope. A program, 


PRINTCHR$(147)TAB(50)"MULTIPLICATIONS DRILL" 


INPUT"WOULD YOU LIKE INSTRUCTIONS"; ZS 
IF Z$="NO" THEN 90 


PRINT’I'M GOING TO SER HOW WELL YOU CAN " 


PRINT"MULTIPLY. WHEN IT SHOW YOU A PROBLEM," 


PRINT’ TYPE IN THE ANSWER AND° PRESS THE" 


PRINT’ 'RETURN' KEY. 


sis) Pela, 1OU. TP -AYOUr aR? 


PRINT"RIGHT, AND GIVE YOU A SCORE AFTER TEN" 
INPUT" QUESTIONS, OLR." sZ$ 


PRINT 

PRINT 

FORX=1 TO 10:X1=X)]+4] 
A=INTCRNDCO)*11):B=INTCRNDCO)*11 ) 
PRINT 

E=O: PRINT PROBLEM #3 X12 VRINE 
GOSUB 140:NEXT X 

GOTO 420 

PRINT " "3 INTCA) 

PRINI™ A Ss PRINT INTCB:) 


1380" INPUT S"=D 

PO. TE D=C TEEN: 500 

LO ps ESERISEE ba TEN. eae REM COUNTING. SESSES 
195 IF E=2 THEN PRINT "THE ANSWER WAS:";C:GOTO 240 


PRINT "YOU GOOFED...TRY AGAIN." 


220 GOTO 140 

240 F=F+1 

250 AC(F)=A 

260 B(F)=B 

270 RETURN 

280 REM 

290 REM 

300 X2=X2+1:R=INT(RND(1)*541) 

310 ON R GOTO 320, 340, 360, 380,400 

320 PRINT'RIGHT ON!!!" 

330 GOTO 410 

340 PRINT"FINE..." 

350 GOTO 410 

360 PRINT"GOOD WORK!!!" 

370 GOTO 410 

380 PRINT"KEEP IT UP!" 

390 GOTO 410 

400 PRINT'EXCELLENT!" 

410 RETURN 

420 PRINT'YOUR SCORE IS NOW'';X2:"CORRECT AND":M;"ERRORS. (": 
425 PRINT INT(X2/(M+X2)*100):"%)" 

430 INPUT'DO YOU WANT TO CONTINUE";Z$ 
440 IF Z$="YES" OR Z$="Y"THEN 500 

450 PRINT’THANKS FOR PLAYING WITH ME..." 
460 END 

500 G=0:FORX=1 TO 10 

510 IF (A(X)>0) OR (B(X)>0) THEN G=G+1 
520 NEXT X 

530 IF G=0 THEN 100 

540 PRINT" DIDN'T FORGET YOU MISSED THESE:" 
550 FORX=1 TO G 

560 A=A(X):B=B(X) 

570 GOSUB 140 

580 NEXT X 

585 F=0 

590 GOTO 100 


helps such as the one in Listing 5-4, that helps you specified amount of time to be executed (for exam- 
learn to read faster could be easily implemented by ple, FOR X=1 TO 500: NEXT X requires approxi- 
using a timing loop. Lines from a piece of literature mately 1 second to execute with some forms of 
could be stored in data statements and flashed BASIC). The amount of time you are given to read 
momentarily on the screen; only one line at one each line should be gradually decreased until a 
time should be displayed. The timing loopis simply speed of several hundred words (for example 500) 
a BASIC FOR-NEXT loop that will require a_ per minute is obtained. 


Listing 5-4: The Speed Reading Program 


LO REM SPEED READING FROGRAM 

0 N= OOL REM SET N=INDT TIAL TIMING FACTOR 

eo PREM) CHP C144) 

oO FRINT' THE THREE GAY BLOW, GY ERNEST HEMINGWAY" 

ay Aare Leo 

SO PRINT" THE Rete STOPRED AS NICK TURNEO INTO THE ROAD " 

&O GOSUBLOOS 

PO PRINT! THAT BENT Ur THROUGH THE ORCHARD. THE FRUIT HAD HEEN" 
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SO OC SWE] ooo 

SOQ PRTATUP TICKED 
joo Osu 
PA AS a alae 
Let GOS Ue | cc 
Lae FR DAT eS Je: 
1 4c 
New oe 
160 
Tet 
1&0 
fee oe 
4 
A 
epee 


41 


THI FALL WIND 


Midd 


STOPPED 


THE ROAD, 


PRINT RGIN. HE PUT THE 
GOSUBIOON 


PRINT" COAT. 


SUT AGO TDN (3) ODN Gie POT. e PIMES 
MeR-SOo REM DECRKRESSE TIMING 
DRM OTHEN END 
TNT OP DG 
UTO BoD REGIN ANEW 
RUE THES OUGRCUT CME 
REM OF PENDING QN THE 
Pee) coe ack: <0hHey oi 
NEAT 
be Ph (eae iE | 
REM REASONABLE 
RECN CHR C14) 


WITH FASTER 
INSERTS 
VaLUE OF 


Prep) 
Lona 
ee 
eee 
ale Bes 


WITH 
Yrl Uk: 


YOUR 
FOR N 


PRINTIPRINTS PRINTS PRINT PRONT 
FET LIF(N 


BLEW THROWS 
AND PICKED UF 
SHINY IN THE BROWN 
APPLE IN THE 


HERE 
FACTOR 


DOME ek Te 
IN LINE #20 


THE BARE TREES. " 
© WAGNER AFPFLE FROM " 
GRASS FROM THE" 
POCKET OF HIS Mack INAW" 


IN THE FASHION ABOVE... 
GPTER EACH REAO-THROUGH 


Pet POro a re x=) POSOODNEXT x 
TIMING 
A DELAY 

THE TIMING FACTOR, N 


BETWEEN EACH LINE 


DE TERM IME 


A tachistoscope can be used to improve your 
perception and short-term memory. Psychologist 
G. Miller reports that anyone should be able to see 
from five to nine letters in any given brief exposure, 
whether 1/100 of a second long or % a second, 
which shows the limitation in our ability to perceive 
visual information in brief exposures. In addition, 
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we are able to see many more letters displayed by 
the tachistoscope if they form a familiar word 1n- 
stead of an unfamiliar or foreign word. A tachisto- 
scope program could be written for personal con- 
firmation or as a science fair project. The program 
could offer adjustable speeds, familiar and unfamil- 
iar words, and display of words for confirmation. 


Chapter 6 


Hobby Applications 


Your personal computer can make hobbies, from 
arts and crafts to photography easier, quicker, and 
more creative. 


THE ARTS 


It does not seem possible that a computer can 
create original art work until you consider the 
mathematical basis as well as randomness of some 
art forms. Art is an area in which the personal 
computer can be used in many different ways—and 
many of these ways are yet undiscovered. 


The Visual Arts 


The computer can serve both as a source of 


inspiration and as a tool for the artist or craftsper- 
son. Below are some of the areas in which a com- 
puter can be used. 

Mathematical functions. Plotting or 
graphing a mathematical function can often produce 
interesting geometrical designs. Color terminals 
equipped to plot a grid in full color, each color 
indicative of the value of the function at each indi- 
vidual point, produce fantastic geometrics. the de- 
signs generated can be used in knitting or embroi- 
dering, or for producing a geometrical painting. A 
plotter or graphic pointer may be used for output. A 
standard printer may be used with the demonstra- 
tion program in Listing 6-1, which creates plots 


Listing 6-1: The Three Dimensional Plotter Program 


JO PRINT"'3 DIMENSIONAL' PLOTTER" 


20 REM OTHER FUNCTIONS TO TRY INCLUDE: S*(COS(Z/16) )42 


30 REM THE SYMBOL # MEANS EXPONENTI ATION 
40 DEF FNA(Z)=S*EXP(Z*-Z/100) 

S0e PRINT ENTER SCALE: FACTOR CTRY “30")" 
55 INPUT $ 

60 FOR X=-S TO S STEP S/20:L=0 
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70 Yl=5*INT(SQR(S42-X*X)/5) 

80 FOR Y=Yl TO -Y1 STEP-S/6 

QO Z=INT(S—5+FNA(SQR(X#X+Y*Y) )—. 7*Y) 

100 IF Z>L THEN L=Z:PRINT TABCINT(Z/2))"+"; 
110 NEXT Y 

120 PRINT " ":NEXT X:END 


with a three-dimensional appearance. Figure 6-1 
Shows some sample output from the three-di- 
mensional plotter program. 

Alteration of a design. A given design (for 
example, a drawing of a human face or an American 
flag) transformed into a series of points on a grid 
can be manipulated using a mathematical algorithm 
to produce “modern art” effects. Additionally, one 
design may be gradually transformed into another, 
through a series of plots, producing a fascinating 
result reminiscent of animation. 

Kaleidoscope. A kaleidoscopic pattern may 
be produced by plotting a continuous set of points 
that wander randomly horizontally and vertically in 
one of four corners on the screen. The other three 
corners are plotted by “reflecting” the wandering 
line, drawing in mirror-fashion. An example is 
shown in Fig. 6-2. 

Random art patterns. For the ultimate in 
simplicity, a program could generate random num- 
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bers that in turn would cause graphics characters on 
the screen to turn on or off or would control a pen 
plotter in “random-walk” fashion. This, however, 
may exceed the confines of what is considered art. 
One hobbyist reports using his computer to ran- 
domly combine picture elements and then print 
“landscapes” using a plotter. Figure 6-3 shows an 
image produced using randomly determined ele- 
ments. 

A/D converters. Use of an analog/digital 
converter to digitize and transform real-world 
events can produce interesting results. For exam- 
ple, one hobbyist interfaced a human dancer to his 
computer by applying a dozen mercury switches to 
the dancer’s body. The dancer’s movements caused 
the switches to open and close, producing digital 
signals for the computer. The computer, in turn, 
created “choreographed music” from the signals. 

Anamorphic art. Anamorphic images are 
those that appear distorted, but when viewed witha 
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Fig. 6-1. 
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Sample output from the three-dimensional plotter program. 


Fig. 6-2. A kaleidoscope pattern. 


special device or from a unique perspective appear 
normal. An example of such a special device is a 
cylindrical mirror placed in the center of the image. 
The computer may be used to transform a set of 
points describing a “normal” image into an anamor- 
phic equivalent. For examples of anamorphic art, 
see Leeman, Fred. Hidden Images: Games of Per- 
ception, Anamorphic Art, Illusion. New York: Harry 
N. Abrams, Inc., 1975. Figure 6-4 shows the re- 
sults of such a program. 

Crossword poetry. An interesting “cross- 
word” of the words from a poem or piece of litera- 
ture may be created by the computer. A program to 
create such “art” would scan each word and deter- 
mine how that word could fit in crossword form 
with adjacent words: 


WHO BUT 
A WHEN THE L ES 
THE N E 
WIND? G M 
E B 
: I THE WIND 
i 
H : 
E If 
R PASSING 
NOR THROUGH 
YOU 


READ AS “Who has seen the wind? 
Neither I nor you. 
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! randomly placed lines and circles of various sizes onthe screen and filled in 


Fig. 6-3. Avideo image created by 4 program 
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- Convex and Concave’ by Ramon Masters. See Computer Graphics and Art, 


February, 1978. for a detatled explanation of how these and similar images can be created. 


Fig. 6-4. “Computer Curvilinear Projection 
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But when the leaves hang trembling, 
The wind is passing through.” 


Textile patterns. By combining the video 
graphics characters found on many personal com- 
puters into patterns, a textile appearance may be 
created. This may be considered art in itself or used 
as a model for a tapestry design. A simple program 
could select five graphics characters at random and 


Listing 6-2: The Textile Generator Program 


5 PRINTCHR$(147) 


10 PRINTTAB(45)"COMPUTER TEXTILE GENERATOR" 


20 PRINT:PRINT''THIS PROGRAM CREATES RANDOM 


then printout a full line of each graphic character. 
This pattern would then be repeated; surprisingly 
good results may be obtained. Amore sophisticated 
program could combine different graphics charac- 
ters within the line in symmetric fashion. Similarly, 
new quilting patterns could be designed 
mathematically. A sample textile pattern program 
is presented in Listing 6-2. 

Perspective drawing aid. Given a set of 


VTEXTIGE. -” 


30 PRINT’ PATTERNS FOR OUTPUT ON A VIDEO SCREEN." 
40 PRINT’ THE PROGRAM COULD BE MODIFIED TO PRINT" 


50 PRINT'ON A GRAPHICS PRINTER" 


60 PRINT'CHOOSE THE DESIRED LEVEL OF COLOR:" 


70 PRINT'1) MONOCOLOR" 

75 PRINT’2) STRIPES" 

80 INPUT"3) MULTICOLOR" ;C 

90 N=INTCRND(O)*941) 

100 FOR X=1 TO N 

110 ASCX)=CHR$(INTCRND(O)*624161)) 

120 NEXT X 

130 PRINT CHR$(147) 

140 FOR M=1 TO 6:TF G=l THEN GOSUB 250 
150 FORX=1 TO N:IF C=2 THEN GOSUB 250 
160 FORY=1 TO 40:IF C=3 THEN GOSUB 250 
170 PRINT AS(X); 

180 NEXT Y,X,M 

210 GOTO 60 

250 AS=INTCRND(O)*1641) 

260 
270 
299 
300 
310 
320 
330 
340 


RETURN 
REM BACH LINE CHANGES CHARACTER COLOR 
PRINTCHR$( 5); : RETURN 
PRINTCHR$( 28) 3: RETURN 
PRINTCHR$( 30) 3 : RETURN 
PRINTCHR$( 31) 3: RETURN 
PRINTCHR$(129) 3 :RETU 
PRINTCHR$( 144); : 
PRINTCHR$( 149) ; :RE" 
PRINTCHR$( 150) ; : RETURI 
PRINTCHR$( 151) 3 :RETUR! 
PRINTCHR$(152) 3: RETURN 
PRINTCHR$( 153) 3 : RETURN 
PRINTCHR$(154) 3 : RETURN 
PRINTCHR$( 155) 5 : RETURN 
PRINTCHR$(156) 3 : RETURN 
PRINTCHR$( 158) ; : RETURN 
PRINTCHR$(159); : RETURN 


370 
380 


400 
410 
420 
430 
440 


ON A GOSUB 300, 310, 320, 330,340, 350, 360, 370, 380, 390, 400, 410, 420, 430, 440, 450 
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points describing the (x, y, z) dimensions of objects 
in a picture, the computer could use matrix manip- 
ulations to produce a new set of points describing 
the picture from another perspective or viewpoint. 
Figure 6-5 shows an example. Additionally, if video 
graphics or plotting capabilities are available, the 
new picture could be plotted. Perspective trans- 
formations are useful in technical illustration and 
other art forms as well. 

As an example of the perspective transforma- 
tions that can be accomplished using a large array of 
points, let (x, y) be a coordinate pair under the “old” 
coordinate system. Let (x,, y,) be the center coor- 


dinates of the new system rotated through angle @ in 
relation to the old system. The new coordinates (x’, 
y) may be calculated with these equations: 


X= Se )-C08 Or Ly vy.) Sing 
y’ = — (x— x,) sin + (y — y,) cos 0 


A dimension scaling program would request 
the largest dimension of the object and the largest 
dimension of the drawing of the object; the scaling 
factor 1s the ratio of these values. The program 
would eliminate the headaches of creating a scale 
drawing by multiplying the input dimensions of the 


Fig. 6-5. Examples of the use of mathematical algorithms to alter drawings. 
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object by the scaling factor to arrive at the scaled 
down dimensions for the drawing. 

Computer as sculptor. One hobbyist has 
created a computer-controlled router that can 
sculpt material in accordance with a set of pro- 
grammed points (x, y, z). The computer controls 
the rotation of the sculpturing material (y axis) and 
the horizontal/vertical (x and z axes) motion of the 
router by means of servomechanisms. Eliminating 
one axis, the computer could also control a lathe to 
produce sculptured furniture legs of exacting pro- 
portions. 

Computer painting. A commercial 
computer-controlled airbrush system is being used 
to create murals from photos or other graphic 1m- 
ages. The image is digitized (through the use of a 
TV camera and A/D converter) and then painted 
with much larger proportions by the use of a special 
x, y “plotting” system, which uses an airbrush in 
lieu of a pen. An enterprising hobbyist could con- 
struct such a system. 

Computer posters. Everyone has seen the 
“computer portraits’ popular at carnivals and shop- 
ping malls, in which a television picture of a subject 
is digitized and output on a line printer. One hob- 
byist has circumvented the expense of a television 
digitizer by taking an ordinary photograph and 
placing a fine grid over it; he assigns each square in 
the grid a brightness level and inputs this informa- 
tion. The computer prints dark characters or blocks 
for the squares with a low brightness level and vice 
versa for squares with a high brightness. Through 
this tedious and time-consuming process he creates 
computer posters and protraits without the expense 
of a television camera and video image 
digitizer. 

A simple silhouette poster may be created by 
specifying the number of “X” and space characters 
to print on each line in DATA statements. For 
example, to print two spaces, one “X,” one space, 
and one “X” on line number one, you could create a 
DATA statement that read DATA LI, S2, X1, S1, 
X1 and use the LEFT$ function to read the first 
character in each data item. The computer would 
then print the decoded representation and continue 
with the next line. The advantage to this method is 


that it requires less memory than the use of ver- 
batim PRINT statements would. 


The Verbal Arts 


What usefulness could there be in creating 
poems by computer? Unlike humans, computers 
have the capability of being “completely” random. 
They are free from the “inspirational” selection of 
words when composing a poem; “completely” 1s in 
quotes because there will always be some bias in- 
troduced by the programmer. A computer-gener- 
ated poem can serve as a stimulus for the human 
poet. He can elaborate on the poem and extract 1n- 
spirational clues in composing his own poetic 


works. 

One crude method for generating computer 
poetry makes use of the following format in ran- 
domly selecting words from large lists of nouns, 
verbs, adjectives, definite articles, prepositions, 
conjunctions, and adverbs: 


TITLE: 
FIRST LINE: 


Adjective + Noun 

Adjective + Noun (plural) + 
Adverb + Verb (plural, present 
tense) + Adjective + Noun 
(plural) 

Adjective + Noun (plural) + 
Verb (plural, present tense) + 
Adverb + Adjective + Noun 
(plural) 

Article (definite, such as the) 
+ Noun (singular) + verb (sin- 
gular, present tense) + Prep- 
osition + Article (definite) + 
Adjective + Noun (singular) 


SECOND LINE: 


THIRD LINE: 


FOURTH LINE: Noun (plural) + Verb (plural, 


present tense) + Conjunction 
+ Article (definite) + Noun 
(singular) 


To ensure some continuity, the second adjec- 
tive and noun of the first line may be repeated as the 
first adjective and noun of the second line. One 
computer-generated poem based on this structure 
read: 
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Listing 6-3: The Aphorism Generator Program 
10 REM APHORISM GENERATOR 


DIM A$(50):REM ADJUST THE DIMENSION EQUAL TO THE NUMBER OF WORDS IN THE 


DATA STATEMENTS 
FOR X=1 TO 50:READ A$(X):NEXT 


PRINT A$(50*RND(1)); 
GOTO 40 
REM ADD 40 NOUNS OF YOUR CHOICE TO THE DATA STATEMENTS BELOW 


DATA SUCCESS, 
DATA REWARD, NAIVETE, 


AGONY, MONEY, 
FATHER, 


Clear Spirits 

Warped trunks frailly dwell delicate leaves 

Delicate leaves shudder cunningly intricate 
lines 

The image vanishes to the sharp second 

Bee fly against the cloud 


Computers have poetic license too! 

Along similar lines, an aphorism generator 
could create aphorisms ad infinitum using the form 
a IS CNS ae 
replacing each blank with a randomly selected 
noun. The underlying philosophical truism 1s up to 
the reader. The program in Listing 6-3 is an outline 
for an aphorism generator; you supply your own list 
of nouns. 


The Musical Arts 


Within the field of music, the personal com- 
puter can be used in a number of different areas. 
Some of these are listed below. 

Music education. Possible music education 
applications include the following: 


1. A graphic, flashcard style quiz that could dis- 
play notes and other musical notation on the 
scale for identification as practice in reading 
music. 

2. A quiz on pronunciations and definitions of 
music terminology (for example, andante, 
diatonic, and staccato). 

3. A musical staff drill. A graphic keyboard and 
staff could be presented, and the computer 
could select the note on the staff corresponding 
to the key that 1s “pressed.” Key signature 
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DEATH, 
BEAUTY, 


"IS THE ";A$S(50*RND(1));" OF ";AS(50*RND(1)) 


LOVE 


4. 


10. 


1h 


SEX 


drills could be done in a similar manner. 

A basic ear-training skills program. A com- 
puter capable of producing musical tones could 
quiz students on recognition of pitches, inter- 
vals, chords (major, augmented, diminished, 
and minor), and scales (major, natural minor, 
harmonic minor, melodic minor, whole tone, 
and chromatic). 


A name the tune game. A computer-produced 
familiar tune can teach identification by sound 
of the degrees of the scale, using solfeggio syl- 
lables or scale degree numbers. 


. A wrong note program. Pitch error-detection 


can be practiced within various combinations of 
four-voiced chord types. Following the selec- 
tion of achord type, the computer can visually 
represent the chord and play the sound with 
one incorrect note. The student must identify 
the wrong voice and its corresponding pitch. 


. Harmony drills. Computer-produced aural 


diatonic chord progressions may be taught on 
various levels of difficulty. 


. Write that tune game. The computer plays a 


random or preprogrammed series of notes that 
the student must then reproduce on a video 
staff or on an interfaced musical keyboard. 


. Chord progressions practice. Students may 


predict chord progressions and receive feed- 
back from the computer and subsequent visual 
and/or aural output. 

Guitar chords practice. Students can practice 
finger placement required to produce guitar 
chords, with visual/aural feedback. 

Famous composers and their music quiz. A 
quiz-style program could teach famous com- 


poser’s names, pronunciations, and composi- 
tions with the aural output of excerpts from 
those works. 

12. Transposition practice. The student is pre- 

sented with a short melody to transpose to a 

randomly-selected key. The computer verifies 

correct transposition. 

Tuner program. Two computer-produced 

tones (separated by less than one half-step) are 

tuned to match each other by the student, who 
may select an increase or decrease in one of 
the tones. 

14. Rhythm practice. The student could practice 
playing rhythm patterns on a keyboard. The 
computer can analyze them for accuracy, play 
the passage the way it should be played, and 
even demonstrate how the student’s response 
differed from the expected response. 

15. Composition packages. This program, given 
the notes of a composition, can display the 
piece in standard musical notation and actually 
play it. The student can experiment with 
tempo, timbre, and musical envelopes. Having 
control of timbre and musical envelope allows 
composition of a piece performed by three 
voices resembling the clarinet, flute, and oboe 
and demonstrates the interaction between 
VOICces. 
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Music composition. In the past, computer 
programs designed to compose music were based 
more upon random numbers than musical princi- 
ples. Thus, the songs that were produced could 
only be compared to a child randomly hitting piano 
keys. Lately, progress has been made in developing 
more complex programs that adhere to the “rules of 
thumb” for composing particular types of music. 
One program, which used the following rules, was 
somewhat successful in composing “pop” music. 


Basic melody requirements: 


1. The first note must be other than a fourth, a 
flatted fifth, a minor second, or a ninth. 

2. An ascending minor second progresses to a 
second, and a descending minor second pro- 
gresses to the tonic; an ascending flatted fifth 
progresses to a fifth, and a descending fifth 


progresses to a fourth. 

3. Not more than five notes in descension or as- 
cension are allowed without a complementary 
movement. 

4. The melody should consist of 35 to 60 notes. 

5. The release begins on a subdominant major 
note. 

6. Melodic leaps must not be larger than a major 
tenth. 

7. A melodic leap may not be followed by another 
melodic leap larger than a major sixth. 

8. No more than three consecutive melodic leaps 
are allowed. 

9. No ascending or descending passage may con- 
tain more than one melodic leap. 


One of the songs composed is represented as 


/C/F/*DA/G8C:8CF"G/C*AF8G8/G***/DEF’G/ 
ABC: B8C:8/C*B8C:8/D* C/F*DA/G8C: 8C:F"G/ 
G*AF8G8/G***/DEF”G/ABC: B8C; 8/C: *A*/F*** 
/A**C8CD/FE*/B**C: 8EF”/G*** 


The corresponding music is shown in Fig. 6-6. 

Rather than subjecting purely random notes to 
these compositional rules, a probability distribu- 
tion used in conjunction with a random number 
generator could help to produce notes that would 
more likely fit the rules. The chart in Table 6-1 
illustrates how this might be done. The name for 
each interval is given along with the corresponding 
number of notes on a keyboard. The next column 
gives a probability for selection of that interval, 
which may be changed according to the composer’s 
wishes. The following two columns give the range 
of numbers, generated by a random number 
generator, that corresponds to the probability of 
selecting a given + or — interval. In this way a 
random number generator selecting numbers from 
1-100 can provide a given probability distribution of 
notes. 

To further ensure the choice of “good” notes, 
second or third-order probability distributions 
could be specified; that is, for each possible pre- 
ceding interval, a probability distribution wold exist 
for the purpose of chosing a particular value for the 
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Fig. 6-6. An example of music generated by a computer. 


next interval. For instance, in traditional music, a 
tritone is usually followed by a stepwise interval 
(whole or half step); thus, the second-order proba- 
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INTERVAL 


bility distribution for a tritone would be heavily 
weighted toward a stepwise interval in selecting 
the next note of the composition. 


Table 6-1. The Probability Distribution for the Random Selection of Notes. 


NO. OF NOTES 
PROBABILITY 


FROM LAST NOTE [OF SELECTION 


Unison 

Half Step 
Whole Step 
Minor Third 
Major Third 


Perfect Fourth 
Tritone 
Perfect Fifth 
Minor Sixth 
Major Sixth 
Minor Seventh 


Major Seventh 
Octave 


RANDOM NUMBER RANGE 
IN + DIRECTION IN — DIRECTION 


The music demonstration program in Listing 

6-4 may be used to transpose from any key to any 
other key. It also serves to compose a four part 
harmony for any song written 1n the key of C. For 
the transposing subprogram, notes may be entered 
in the following format: C is C, C sharp 1s C#, C flat 
is C’ and so on for A through G. For the harmonizer 
subroutine, notes are input in a numerical format; 
middle C is 0, the higher frequency notes D, E, F 
. are +1, +2, +3..., and the lower frequency 


Listing 6-4: The Music Program 


10 PRINTCHR$(147)TAB(53)'"'MUSIC PROGRAM" 
20 PRINT:PRINT"HARMONIZES AND TRANSPOSES" 
$0) PRINT SELEG ES 1) TRANSPOSER™ 

35 INPUT" 2) HARMONIZER"SA 

40 ON A GOTO 3000, 100 


100 
110 
120 
130 
140 
150 
160 
170 
180 
185 
190 
200 
205 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
305 
310 
320 
330 
340 
350 
355 
360 
365 
370 
380 
390 
400 


REM HARMONY COMPOSING PROGRAM 


notes B, A, G...are —1, —2, —3.... Because the 
song input must be in the key of C, sharps and flats 
are not absolutely necessary and are not provided 
for by the program. The addition of sharps and flats 
would be one improvement to experiment with. Of 
course, the transposing program may be adapted to 
use numerical notation instead of alphanumeric no- 
tation and then be used in conjunction with the 
transposing subprogram. Figure 6-7 shows the 
numerical system. 


PRINTCHR$(147)"A FOUR PART HARMONY WILL BE PRODUCED" 
PRINT'FROM A GIVEN MELODY IN THE KEY OF C" 


DIM: BCS 100) .¥ C6, 6), VC 100) s RESTORE 


POR? Tite) TOs FOR T2=]-TO- Oc READ VCE dt 2) 


NEAT D2 Tien iot 
DATA 5,4,1,6,2,3,6,4 
DATA 4,1,3,1,5,3,6,2 
PRINT"ENTER THE NUMB 
INFUT W9 

FOR E=O TO 4:READ BCE,W9):NEXT E 
PRINT"ENTER NOTES INDIVIDUALLY IN THE " 
PRINT'FOLLOWING FORMAT:" 

PRINT"MIDDLE C=0" 


5 
0,-3,-5,-7 


Mester. Phere tne r ne rk” eto rere are ancl ts) 


ER OF NOTES IN THE MELODY" 


PRINT"NOTES ABOVE MIDDLE C ARE 4+1,+2,4+3,..." 


PRINT'CORRESPONDING TO D,E,F" 


PRINT'NOTES BELOW MIDDLE C ARE -1,-2,-3..." 


PRINT"CORRESPONDING TO B,A,G" 
FOR Tl=1 TO W9:INPUT V(T1):NEXT Tl 


PRINT:PRINT' # SOPRANO ALTO" ,"TENOR","BASS" 


iol 

FOR W=W9 TO 1 STEP -1l 

IF W=W9 THEN 760 

Rl=1 

FOR R=R1 TO 6 
B=V(W):BC1,W)=B:L2=Y(L1,R):BC0,W)=L2 
M=B(4, 14W) :M(1)=L2-8:M(2)=L2-15 

FOR S=1 TO 2 
IF ABS(M(S)-M)<=5 THEN NEXT S:GOTO 360 
A=M(3~S):GOTO 370 
IF B>BC1,W+1) THEN A=M(2):GOTO 370 
A=M(1) 

S=1:BC(4,W)=A 

FOR Ts0° TO 4°STEP ‘2 

G=B-(T+A):GOSUB 790:IF G=0 THEN 410 
K(S )=A+T:S=S+4+1 
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410 NEXT T 

420 IF S>3 THEN 690 

425 FOR U=0 TO 6 

430 F(3,U)=K(1):F(0,U)=0:F(2,U)=K(2) 
440 K=K(2):J=K(1):K(2)=J+7:K(1)=K 
450 NEXT U 
460 FOR U=0 
470 FOR E=2 
480 K=F(E,U) 
490 IF (5-E*4>K) OR (17-E*4<K) OR (ABS(K-B(E,W+1))>5) THEN 610 
500 B(E,W)=K:IF B(2*E-3,W)<=B(2*E-2,W) THEN 610 

505 NEXT & 

510 IF Ll=L2 THEN 570 

515 FOR El=1 TO 4 

520 FOR E2=E1+1 TO 4 

530 M=B(E1,W+1)-B(E2,W+1) 

540 G=M:GOSUB 790:IF (G=0) OR (G=4)THEN 550 

545 GOTO 560 : 

550 IF B(E2,W)-B(E2,W+1)=B(E1,W)-B(E1,W+1) THEN 610 

560 NEXT E2,E1 

570 FOR E=2 TO 3 

580 M(E)=ABS(B(E,W)-B(E,W+1)) 

590 NEXT E 

600 F(0,U)=M(2)4M(2):GOTO 620 

610 F(0,U)=88 

620 NEXT U 

630 V=II:FOR U=0 TO 6 

640 V1=F(X1,U) 


50 IF Vi>V THEN 660 


655 V=V1:U9=U 

660 NEXT U 

670 IF V=88 THEN 690 

680 B(3,W)=F(3,U9):B(2,W)=F(2,U9):GOTO 760 
690 NEXT R 

700 W=W+l:IF W9<>W THEN 710 

705 PRINT'PROGRAM CANNOT CONTINUE":STOP 
710 L1=B(0,W+1):L2=B(0,W) 

720 FOR R=1 TO 6 

730 IF L2=Y(L1,R) THEN 750 


TO 6 
TO 3 


740 NEXT R 

750 Rl=R+1:GOTO 310 

760 PRINT We™ “sBC1,W)s"" MSBC 23) ,BC3,W) ,BC33 W) 
770 Ll=L23 NEXT W 

780 END 


790 G=G-INT(G/7)*7:RETURN 

3000 REM TRANSPOSER 

3010 REM READS HARMONY PROGRAM DATA FIRST 
3020 FOR X=1 TO 36 

3030 READ A:NEXT X 

3040 DIM A$(18,18) ,W$(100) 

3050 FOR B=1 TO 17 

3060 FOR C=1 TO 17 

3070 READ A$(B,C) 

3080 NEXT C,B 

3090 INPUT"ENTER THE ORIGINAL KEY (E.G., C#)";B$ 
3100 FOR X=1 TO 17 

3110 IF B$=A$(1,X) THEN 3120 
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3115 NEXT X 
3120 INPUT"ENTER THE KEY TO TRANSPOSE TO";C$ 

8130 FOR Tei. 10-17 

3140 IF C$=A$(1,T) THEN 3150 

3145 NEXT T 

3150 PRINT"ENTER THE NOTES OF THE SONG SEPARATELY" 
3160 PRINT"ENTER 'END' TO END":R=1 

3170 INPUTWS(R) 

3180 IF W$(R)="END" THEN 3190 

3185 R=R+1:GOTO 3170 

3190 R=R-1 

3200 FOR Z=1 TOR 

3210 FOR P=1 TO 17 

3220 IF W$(Z)=A$(P,X) THEN 3230 


3225. NEXT: 

3230: PRINTAS CRT eth es 

3240 NEXT Z 

3250 DATA C,C#,D-,D,D#,E-,E,F,F#,G-,G,G#,A-,A,A#,B-,B,C#,D 

3260 DATA D,D#,E,E,F,G-,G,G,G#,A,A,A#,B,B,C,D-,D,D,D#,E,E,F 

3270 DATA G-,G,G,G#,A,A,A#,B,B,C,D,D#,E-,E,F,F,F#,G,G#,A-—,A,A# 
3280 DATA B-,B,C,C,C#,D#,E,E,F,F#,G-,G,A-,A,A,A#,B,B,C,C#,D-,D 
3290 DATA E-,E,E,F,F#,G-,G,A-,A,A,A#,B,B,C,C#,D-,D,E,F,F,F#,G,G 
3300 DATA G#,A,A#,B-,B,C,C,C#,D,D,D#,F,F#,G-,G,G#,A-,A,B-,B,B,C 
3310 DATA C#,D-,D,D#,E-,E,F#,G,G,G#,A,A,A#,B,C,C,C#,D,D,D#,E,E,F 
3320 DATA G-,G,G,G#,A,A,A#,B,C,C,C#,D,D,D#,E,E,F,G,G#,A-,A,A#, B- 
3330 DATA B,C,C#,D-,D,D#,E-,E,F,F,F#,G#,A,A,A#,B,B,C,D-,D,D,D#,E 
3340 DATA E,F,F#,G-,G,A-,A,A,A#,B,B,C,D-,D,D,D#,E,E,F,F#,G-,G 
3350 DATA A,A#,B-,B,C,C,C#,D,D#,E-,E,F,F,F#,G,G,G#,A#,B,B,C,C#, D- 
3360 DATA D,E-,E,E,F,F#,G-,G,G#,A-,A,B-,B,B,C,C#,D-,D,E-,E,E,F,F# 
3370 DATA G-,G,G#,A-,A,B,C,C,C#,D,D,D#,E,F,F,F#,G,G,G#,A,A,A# 


AN OCTAVE 


Fig. 6-7. Anumbering system for harmonizing programs and other music-composing programs. 
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Additional possibilities for using your personal 


computer in music composition include the follow- 
ing: 


i 


Produce a stricter set of rules for composition 
than those given above; rely less upon ran- 
domness. 

Develop programs to compose in assorted 
musical styles including classical, rock and 
roll, and children’s music. Computer musicians 
have applied statistical analysis to various 
styles and composers to determine charac- 
teristic probability distributions. Random 
numbers subjected to these probability criteria 
can produce music reminiscent of the original 
Style. 

Develop programs to compose songs for given 
lyrics by using the timing of each syllable to 
time the duration of the notes accordingly. The 
ambitious programmer might try to link a 
lyric-producing program with a music compo- 
sition program; some unusual results would 
undoubtedly be produced. 

A popular melody could be mathematically 
transformed to produce anew melody, and this 
new melody would likely be more tuneful than 
compositions based on random number 
generators, fractals, or probability distribu- 
tions. The original melody would be numer1- 
cally encoded such that each note and note 
duration has a unique number. Withthe melody 
so coded, an algorithm could be applied to each 


Listing 6-5: The Simple Song Transformation Program 


REM SIMPLE SONG TRANSFORMATION 


. A microcomputer 


note, translating that note into another. The 
simplest such algorithm could reflect each note 
around acentral value, transforming high notes 
into low ones and vice versa. It could also be a 
mathematical formula, but extensive ex- 
perimentation would be necessary. A program 
that performs a simple song transformatin 1s 
presented in Listing 6-5. 

A program that performs a simple song trans- 
formation 1s presented in Listing 6-5. 


. Given the score of a music piece written for a 


solo instrument (for example, the piano), the 
computer could transpose and analyze 
melodies, bass, and counter rhythms to pro- 
duce sheet music versions for other instru- 
ments. 


. A microcomputer connected to a player piano 


via a solenoid interface could digitally record 
songs you play or song notes you input. The 
song could be stored on cassette or floppy disk 
and recalled to be played at normal speed, 
faster, slower, backwards, with staccato, and 
SO on. 

interfaced with a mono- 
phonic electronic synthesizer could theoreti- 
cally produce a polyphonic effect, add a con- 
tinuous bass or beat pattern, and perform a 
sequence of switching or mixing for live per- 
formances. 

From a given composition, a simplified version 
could be extracted by the computer (the 


REM REFLECTS NOTES AROUND A CENTRAL VALUE 


READ N:REM SET 
DIM M(N) 

FOR X=1 TO N 
READ M(X) 


N-NUMBER OF NOTES IN THE SONG 


M(X)=10+(10-M(X)):REM REFLECT AROUND NOTE #10 


NEXT X 

FOR X=1 TON 
PRINT M(X);" "; 
NEXT X 

END 


REM FIRST DATA POINT IS # OF NOTES IN SONG 


REM FOLLOWED BY NOTES OF SONG 
DATA 10 
DATA 4,2,5,7,5,5,13,1,12,3 


melody is usually carried by the highest notes, 
the bass by the lowest) and printed in standard 
musical notation. Also, a given piece could be 
arranged so that all chords are broken up into 
varying arpeggios. 

9. Given a melody, the computer could be pro- 
grammed to compose a bass counter-melody. 
The following formula is useful as a part of a 

musical tone generation program based upon the 
numbering notes according to octave (V), where 
middle C is in the fourth octave, and according to 
position within the octave where C=], C#=2... 
B=12. 


where f = frequency in Hz. 

Computer controlled synthesizers. In 
1982, a group of synthesizer manufacturers de- 
veloped a standardized interface, called MIDI 
(Musical Instrument Digital Interface), to enable 
communication between synthesizers and comput- 
ers. Each key is encoded in a fashion similar to a 
computer (ASCID keyboard. For each key struck, a 
series of codes are sent: a NOTE ON signal, a 
PITCH signal, a VELOCITY signal, and (depending 
on the machine) other signals specifying pitch 
blends, patch changes, key release, after touch 
pressure, and front panel changes. This information 
can be sent to any other MIDI synthesizer so that 
two or more keyboards can perform in exact syn- 
chronization, although the patches are different on 
each machine. Special codes can indicate that only 
specified synthesizers are to respond to the fol- 
lowing code. Through a serial interface, this infor- 
mation can also be sent to a computer, which may 
serve as a polyphonic sequencer or imitator of a 
multi-track tape machine. The computer may re- 
cord, edit, store, and play back your music or play 
music entered through the ASCII keyboard. A com- 
poser can quickly change tempo, pitch, instru- 
ments, accents, and so on with the aid of such a 
system, which is capable of producing a flawless 
rendition. 

The Computer Music Journal (P.O. Box E, 
Menlo Park, CA 94025) is a good source of infor- 


mation on composing, scoring, and playing music on 
computers, for the professional or amateur. 


HOBBIES 


The microcomputer can perform invaluable 
services for those involved in almost all hobbies. 


Photography 


The serious photographer should investigate 
the use of the computer to obtain more precise 
values for such things as development times, light 
exposures, and filters through the use of 
mathematical formulae. For example, the standard 
exposure meter assumes the following: 1) for any 
emulsion, the curve of the density versus the log of 
the exposure yields a straight line and 1s character- 
ized by a single factor—speed, 2) time and intensity 
of light are interchangeable to provide a certain ex- 
posute (reciprocity). Actually, these assumptions 
are only approximations of true values. In extreme 
cases, reciprocity does not work; the density ver- 
sus log of exposure curve is not linear, and emul- 
sions have differeint contrasts and latitudes. A ref- 
erence manual describing the mathematical calcu- 
lations of photography should describe the form- 
ulae used to take these factors into account. 

Other ways in which photographers can use 
microcomputers include the following areas. 

1. Exposure compensation is useful in the 
darkroom to calculate the exposure required to 
compensate for a change in photo enlargement 
magnification. Using the inverse square law, if 
you have data on a “perfect” print expressed as 
enlarger head height above the easel (H,,) and 
time of exposure (T.,), the formula for com- 
puting the new time of exposure (T.,) at the 
new height (HH) with the same aperture is 


A useful program could calculate exposure 
times for a range of specified heights at all 
available f-stops to permit easy enlargement of 
a negative to a given size. 
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2. Fill-in flash computation is used to determine 
the correct lens f-stop when a flash 1s used in 
the presence of strong ambient light to fill-in 
undesired shadows. 

3. If you intended to do specialized photography 
requiring homebuilt equipment, the computer 
could be useful in optical and dimension calcu- 
lations. 

4. Automated control of darkroom equipment (in- 
cluding such features as temperature correc- 
tion for chemicals, timer, development cal- 
culator) could expedite the development pro- 
cess. Alternatively, the computer could serve 
as a timer and reminder for steps to be taken in 
the development process. 

9. Aninventory of slides or photographs could be 
stored on disks or tapes, and topics could be 
indexed and cross-referenced. Thus, to create 
a slide show of a particular topic, you can use 
the computer to determine all relevant slides 
and output a listing of each along with its loca- 
tion and remarks. 

6. A simple switching interface to a cassette re- 
corder and slide projector could automate a 
complete audio-visual slide presentation. An 
exotic audio-visual light show could be con- 
trolled in a similar manner. 

7. Focal length conversions from one camera to 
another, based on the diagonal or horizontal 
angle of view, could be done. 

8. A program could be written to calculate film 
speed (ASA), flash ECPS value, or flash guide 
number, given the other two values. Once the 
flash guide number is known, the maximum 
f-stop for the distance from the flash to subject, 
may be calculated. 

Guide number 
f-stop = 
distance 
The published flash guide number is for one 
speed of film only. If you use a different film with a 
different speed, the new guide number may be 
found using the formula 


where NG = new guide no. 
OG = old guide no. 
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NF = new film speed. 
PF = published film speed. 


NF 

PF 

9. Close-up photography values for subject dis- 
tance, required lens focus setting, or field of 
coverage could be calculated given the other 
three values. 

10. The depth of field indicates the distance from 
some point in front of the subject to some point 
in back of the subject for which a given photo- 
graph will be acceptably sharp. A computer 
program could mathematically determine how 
the desired near and far distances can be ob- 
tained, in terms of the f-stop and distance set- 
tings to use. The hyperfocal distance, or the 
nearest distance for which a lens can be focused 
to give satisfactory definition of infinity, 1s 
given by 


NG = Og» 


where H = hyperfocal distance 
F = focal length of lens 
f = f/number 
d = diameter of circle of confusion. 


11. A photograph of your video screen displaying 
alphanumerics or graphics could be used to 
title home slide shows or movies. A recom- 
mended procedure is to darken the room com- 
pletely, use a tripod, and shoot with ASA 125 
Plus —X at f/1.4, 1/8 second. 

For serious hobbyists or professionals, a 
BASIC program for microcomputers to design and 
evaluate lenses was described in Photonics Spectra, 
December 1983, pp. 58-62. 

Animated films. Although most microcom- 
puters are not fast enough to display high- 
resolution real-time animation, a time-lapse film 
could be made with the end result being equivalent 
to real-time graphics. The graphic resolution should 
be a minimum of 200 by 200 individually definable 
blocks. Much better, although much more expen- 


sive, would be a system equipped with a plotter te 
draw all of the figures necessary to produce an 
animated film sequence. The three dimensional 
rotation of an object 1s a popular film subject due to 
the relative ease in programming. 


Amateur Radio 


The ham radio or citizen's band radio en- 
thusiast could use a personal computer to assist 
with his hobby in these ways: 

Morse code tutor. Computerists interested 
in passing the Morse code test to become amateur 
radio operators could use their machines to quiz 
themselves both visually and audibly. The visual 
representation of Morse code Is, of course, asenies 
of dots and dashes: --. -. ---.... Those of you who are 
using a TRS-80 without a built-in speaker can use 
one of the following methods to obtain the audible 
representation of the code. 


1. Use an interfaced tone output speaker 

2. Use timing loops to generate tones of a 
certain duration on an AM radio placed nex! 
to the CPU. 


The standard method of learning Morse code is 
to first study the visual representations, and sec- 
ond, to transcribe an audio transmission at a gradu- 
ally increasing rate. A program similar to the gen- 
eral CAI program described in Chapter 5 could be 
used to requiz you on the codes you have missed. 

Message displayer. By using a Morse code 
decoder/sender interface between the radio and 
your computer, received and sent messages could 
be displayed on a video monitor in English, allowing 
the computer to “translate” Morse code (or some 
other code) to English and vice versa. 

Message monitor. The computer could 
monitor a specified frequency for a particular audio 
signal or coded message. Transmissions ii- 
mediately following this signal would be recorded 
digitally or on cassette tape. Thus, you need not 
attend to the radio constantly to receive a message. 
Received messages could also be forwarded au- 
tomatically on another frequency to another station 
in a network. 


Message relay. A stored message could be 
at the proper time if the statlon operator was 
unable to send it personally. 

Controller. Add intelligence to your test 
equipment ot radio with a controlling microproces- 
sor. Pest sequences could be done automatically. 

Station log maintainer. Maintain your sta- 
ically — All entries could be stored, 
special reports generated (for 
many countries have been contacted? 
Have there been any repeat contacts?). If you hear 
and voure not sure whether or not you 
talked with hind 6 mouths ago, you could type in his 
call letters and find out the last contact 
from a computer database of log entries 

error eorrechine code senders. Pave cor- 
recting codes could be automatically generated to 
WAprove Communications. 

Contest record keeper. Several ham radio 
itilized small computers to keep 
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ORIGINAL COST 
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Using the database program, you could re- 
quest the sum of field 5 or 9 for all records to 
determine the original cost and current value for the 
entire collection. 

Collection management on your personal com- 
puter allows more time for the fun of collecting 
without the bother of record-keeping. Additionally, 
a cassette or floppy disk copy of the inventory could 
be stored in a safe location in the event an insured 
collection is destroyed. 

Collection narrator. Hobbyists with collec- 
tions will find that their personal computer with 
video display makes an excellent visual narrator ofa 
collection. Forexample, a stamp collector createda 
file of his entire collection, with information on each 
item randomly accessible. His narrations were 
similar to this: 


Decade of Space Achievement Issue 
Issued: August 2,1969 Purchased: September 1, 
1969 
Purchase price: .16 Value: .60 


This stamp pair depicts the ascent of man upon the 
surface of the moon. 

Interested persons can be instructed how to 
obtain information on a particular item, or else the 
computer can present a continuous display of each 
item in sequence; this technique can save you from 
monotonous repetition of information to visitors at 
an exhibition. Businessmen at expositions could 
put their personal computer to similar use in ex- 
plaining products. 


Astronomy 


Potential applications for your personal com- 
puter in amateur astronomy include the following: 
1. Locate and identify stars—Calculation of dec- 

lination, sidereal hour angle from observed 

altitude, azimuth, and time. 

2. Make records of observations efficiently in 
computer format for quick retrieval. 

3. Interface telescope drive mechanics to a mi- 
croprocessor controller for automatic photo- 
graphic observations. For more information 
see InfoWorld, Volume 5, Number 47 (12/83) 
pp. 45-46 and Sky and Telescope, January 1981, 
p. 71. 

4. Interconvert astronomical units, kilometers, 
light years, and parsecs. 

5. Calculate and plot orbits of satellites and 
planets. 


The astronomy demonstration program in 
Listing 6-6 calculates the relative position of Venus 
in degrees and hours from the sun for a given date. 


Listing 6-6: The Astronomy Demo Program 


10 PRINTCHR$(147)TAB(48)"ASTRONOMY DEMO PROGRAM" 

20 PRINT: PRINT'THIS PROGRAM CALCULATES THE RELATIVE" 
25 PRINT'POSITION OF VENUS AND THE SUN." 
30° PRINT" ENTER THUS. YEAR «AS TWO DIGITS (E.G. " 
33: INPUT" 84" FOR YOGA) ey 
35 PRINT “ENTER THE NUMBER OF DAYS SINCE DEC. 1" 


of INPUIVOP EAST VEAR 4baG. 


FEB. 5=36 DAYS)";DA 
39 PRINTTAB(250)"BE PATIENT": PRINT'THIS PROGRAM TAKES SEVERAL MINUTES TO 


RUN" 


40 X=364*INT((Y-50)/4)+365*( (Y-50)-INT((Y-50)/4))+DA 
50 PI=3.141592:A=PL/180:C=A* .9856:B=180/PI:D=99. 2*A: E=D+C#X 
53 REM MAY USE COMMODORE'S PI KEY IN PLACE OF VARIABLE PI 


So: -LF ECPis 2 THEN ALO 


60 E=E-PI*2:GOTO 55 


70 E=SINCE~A*105)*1.9%A+F:F=A*1.602:G=A*80.85:H=G+F*X 


80 IF H<PI#2 THEN 100 

90 H=H-PI*2:GOTO 80 

100 H=H+SIN(H-A%135)*.8%A 

110 J=SIN(H-A#232)*.0055+.7233 

120 K=H-E: 1=SIN(E-A*195)*.01641:M=-PI/2 
130 L=SQR(J?2+172-2*jJ*I*COS(K)) 

135 N=SIN(K)*(J/L)+4SIN(M) 


140 IF N<O THEN M=PI/36004+M:GOTO 135 
150 R=M*12/PI 
160 PRINT"THE RELATIVE LOCATION OF VENUS IS";M*B 


170 
180 
190 


PRINT'HOURS FROM THE SUN" 
END 


PRINT'DEGREES FROM THE SUN, EQUAL TO"s;R 


A series of BASIC astronomical calculation 
programs for ephemeris of comets and minor 
planets, locations of celestial objects, and altitude 
and azimuth of the sun appeared in 80 Microcom- 
puting, October 1983. 


Gardening 


Writing a garden analysis program for one- 
time use would not be a practical idea, but your 
friends and neighbors could use sucha program, and 
you may be able to sell the completed software toa 
local garden supply store. A complete analysis pro- 
gram 1s more complicated than it appears on the 
surface, no pun intended. These are some of the 
factors to consider: 

1. pH, water, soil density, and sunshine levels of 
the plot. 

2. Desired pH, water, soil density, and sunshine 
levels for the plants to be planted. 

3. Nitrogen, phosphorus, and potassium contents 
in the soil compared to plant requirements. 

4. The size of the garden. 


Proper planning will allow you to position 
certain vegetables that ward off insects next to 
others that need this protection. The space needed 
between adjacent plants should also be considered. 
Specific plant requirements and the harvest times 
of the vegetables could be printed, along with a 
graphic presentation of the garden plot: 
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Additional outputs could explain how to form a 
compost heap and how to use fertilizer. One gar- 
dener uses his personal computer to track insec- 
ticide and herbicide application, precipitation dates 
and amounts, temperature, and chores to be done. 
Tables of times to plant, spray, and prune can also 
be stored for ready reference and to simplify plan- 
ning. 


Sports 


A file of team and player statistics, player's 
names and numbers, and other sports information 
could be stored on the computer (preferably on 
floppy disk) for quick retrieval by the television 
sports fan. Sports statistics could be compiled, 
graphed, and analyzed. Probability forecasting of 
score and point spread based upon past perfor- 
mance of opposing teams could be accomplished. 
The computer could also “learn” from its mistakes, 
retaining the outcomes of many games in memory. 

At local sporting events a microcomputer 
could be useful in maintaining scores, team 
records, and player records or statistics as the 
game progresses (for use by the announcer of for 
permanent records). 

A series of elapsed-time computations could 
be accomplished efficiently with the proper pro- 
gram. A programmable calculator could serve as a 
digital stopwatch as well. 

Bowling, golf, and other sports involving the 
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tedious calculation of averages and other statistics 
for a league are well-suited for computer book- 
keeping. Sell such a computer service or offer it 
gratuitously to your local bowling alley or golf 
course. 


Gambling 


Your computer could become a helpful advisor 
for those who play poker and various other card 
games. All information available (for example the 
cards 1n your hand and the amount of the bet) would 
be input before each round, and an analysis based 
upon the laws of probability could determine your 
best move. (Perhaps your opponents would object 
to this advantage!). For example, these are the 
probabilities for obtaining particular poker and 
bridge hands: 


649,739 to l 
72,192 to 1 


Royal flush 
Straight flush 


Full house 693 to 1 
Flush 908 to 1 
One pair 1.37 to 1 
Straight 204 to 1 


158, 753, 389, 899 to 1 
367,484,698 to 1 


13 card suit 
12 card suit 


Nine honors 104 to 1 

Yarborough— 1,827 to 1 
no honors 

Four aces/four 378 to 1 
of a kind 

Three of a kind 47 to 1 

Two Pair 21 to 1 

One Pair 2 to l 

Nothing of Interest 2 to 1 


These probabilities were 1n part computed by 
the use of the formulas for combinations and per- 
mutations. The number of combinations of n things 
taken four at a time is designated by 


n! 


(n — r)!(r!) 


n r 


and the number of permutations of n objects taken r 
at a time, _P 1S 
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n! 
(n — r)! 
The mathematical concept of expectation 1s 


very useful in determining when to drop out of a 
poker hand or other gambling operation. 


n oF 


Expectation = probability times winnings 


For example, suppose a poker player plans to call a 
bet of $2, which would increase the pot (potential 
winnings) to $14. If he can see from the exposed 
cards that his probability of winning 1s .4, his ex- 
pectationis.4 x $14 =$5.60, for which he must pay 
$2. Since the expectation is worth more than the 
purchase price, he should cal] the bet. This 1s but 
one concept to incorporate with a betting analysis 
program. 

Other forms of gambling (for example, football 
betting and jai-ala1) may be computer-analyzed 
based upon past performances of the opponents and 
a confidence level established to conservatively 
pick the winner/point spread. Statistics to be in- 
corporated in a database could include each team’s 
win/loss record, the coach, the location (home or 
away), the playing surface, and each team’s record 
against the point spread. A complete computer 
analysis of hundreds of games played from any one 
sport could yield a system for predicting future 
outcomes through the use of statistical cross- 
correlation between all variables. 


Fishing 
Potential applications for serious fishermen 
include the following: 

1. The analysis of weather patterns and times in 
order to forecast the ideal time to fish. 

2. The recording of weight and species of catch, 
locations fished, weather, tides, depth and 
temperature. Use this statistically correlated 
data for future reference. A portable mi- 
crocomputer with an A/D converter could 
gather some of this data automatically. One 
lobster fisherman has statistically analyzed his 
placement of lobster traps on his microcom- 
puter to optimize his catch. 


3. The computation of high and low tide times and 
time of sunrise/sunset. 

The computation of times of sunrise/ 
sunset and high and low tides. Pilots as well as 
fishermen will find a sunrise/sunset calculating 
program useful. To keep such a program as simple 
as possible, tide or sunrise data from previous days 
could be entered to eliminate highly technical cal- 
culations. The times for future sunrises or sunsets 
may then be projected by linear regression or mov- 
ing average calculation. 

For those inclined to astronomical calcula- 
tions, no pun intended, the time of sunrise/sunset 
may be more accurately calculated by consideration 
of the changing inclination to the sun and time of 
rotation for the earth. 


Biorhythms, Astrology, and the Psychic 


Those involved in exploring the more controv- 
ersial aspects of human existence will also find the 
microcomputer useful. 

Biorhythms. Biorhythms are supposedly the 
cycles in emotional, physical, and intellectual 
states governing everyone’s behavior. Dozens of 
computer programs have been written to generate 
personalized biorhythm charts, yet interesting ad- 
ditions could be included. Potential innovations in- 
clude the following: 

1. Plotting or numerically comparing the 
biorhythms of two or more friends or a family. 

2. Computing the average of all three biorhythmic 
cycles. 

3. Generating a biorhythm chart in the form of a 
standard calendar. 

4. Judging the reliability of biorhythms by objec- 
tively analyzing your three states at the end of 
each day and making a Statistical comparison, 
and plotting this data versus your biorhythm. 

5. Investigating the use of histograms and other 
means of presenting data to output biorhythms 
in a more favorable format, including artistic 
designs. 

6. Comparing the reliability of your standard 
biorhythm to one beginning with your esti- 
mated date of conception. 


Astrology. The determination of the align- 


ments of the planets and the sorting of astrological 
data are best done with a computer. Horoscopes, 
interpolation midpoints, aspects, and Placidus 
house and astropoints calculation may be done. 
Tarot, I-Ching, and Numerology may be ac- 
complished in a similar manner. 

The psychic. Purely for entertainment, 
“psychic” and “ESP” programs have been written 
using random number generators; can you predict 
the computer's choice of a card or number? 


Additional Hobby Application 


Hobbyists will find microcomputers useful in 
all the following areas: 

Designing recreational vehicles. A hang 
glider or ultralight enthusiast considering design- 
ing a new aerofoil could find a detailed computer- 
simulated wind tunnel test beneficial. The pro- 
posed design could be mathematically described to 
the computer, and an aerodynamic simulation of 
this magnitude could only be done by someone with 
a good background in aerodynamics. Similar 
simultations could be applied to boats and other 
recreational vehicles. 

Model building. A simple, time-saving pro- 
gram could calculate the scaling factor for model 
builders by dividing the length of the model by 
length of the object to be modeled. Next, each 
dimension of the object would be input, and the 
corresponding dimension for the model would be 
calculated by multiplying the original dimension by 
the scaling factor. 

Model railroading. Model railroading en- 
thusiasts with a large layout may wish to automate 
the trains, lights, switches, and so on with a con- 
trolling microprocessor. One hobbyist went so far 
as to print train schedules and tickets, and analyze 
freight business on his personal computer. 

Scuba diving plan. A simple program could 
calculate one of these four parameters, given the 
other three: 

1. Time underwater in minutes = TVW 

2. Surface air consumption rate in cubic ft/min 

=$ 

3. Depth in feet = D 
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4. Total air volume of tank in cubic feet = 
TAV 


33 ¢ TAV 


= TUW 
DeS ” 


Geneological storehouse. A few hobbyists 
have obtained a sufficient amount of geneological 
information such that a personal computer 1s neces- 
sary to file and update the information. In addition, 
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having specified characteristics of each family 
member instantly available eases the task of further 
geneological research. 


Aquarium maintenance. One hobbyist uses 
his computer to compute amounts of chemicals 
necessary to maintain a seawater aquarium envl- 
ronment. Complex calculations are necessary to 
obtain exact values over a range of temperatures 
and conditions. 


Chapter 7 


Games and Recreational Applications 


According to polls, the most popular application of 
personal computers 1s games, with over 60 percent 
of owners claiming this to be their primary applica- 
tion. Although this percentage may decline with the 
advent of inexpensive, easy-to-use software for 
other purposes and the burgeoning computer net- 
works, games will continue to be one of the most 
popular applications. 

Games are not only fun, but they often have the 
added benefit of being educational. The child (or 
adult!) can hone his skills of eye-hand coordination 
and develop abilities to react creatively, solve 
problems logically, and make decisions. Games are 
often the best learn-to-program challenges for the 
beginner, yet the professional programmer may 
even find himself defeated in attempting to write 
complex game programs (for example, chess or 
Go). Games encourage imaginative and construc- 
tive programming and responses. 

There are at least eight major categories of 
games that have been adapted to the computer: 

1. Fantasy and adventure games: stemming from 
the popular college game, Dungeons and Dra- 


gons, fantasy and adventure games lead you step 
by step through an imaginary world to find a 
special treasure, to solve amystery, or to outfox 
an evil wizard. However, you must figure out 
how to overcome or go through the many obsta- 
cles assigned to prevent your success in this 
elaborate puzzle. You can type simple com- 
mands, such as “go east” in English, and the 
computer will describe where you are and what 
the situation is after each command. The more 
elaborate adventure games may use vivid 
graphics to draw the scene and even use voice 
output. Another series of programs called in- 
teractive fiction allows you to interact with the 
characters and situations in a story. 


. “Video” games: games of this kind usually in- 


volve a live action, shoot-em-up approach, pit- 
ting you, for example, as the sole champion of a 
ship or planet versus the rest of the universe, 
which Is invariably out to get you. If you begin to 
be successful, of course the battle conditions 
deteriorate and the battlefield fills with in- 
creasingly difficult targets to hit. This genre is 


157 


the most popular form of computer game and a 
challenge to your eye-hand coordination; all 
manner of competitions are available. 

3. Strategy and battle games: for those who prefer 
a more enlightened approach to gaming, 
strategy games offer complex rules and tactics 
to employ in fighting battles against a computer 
or a human opponent. They often make use of 
excellent computer graphics displaying a 
battlefield and tokens representing forces on 
each side. 

4. Card games: care to play bridge with three com- 
puterized opponents? The computer has also 
been programmed to play poker, gin, Kalah, 
Tripoli, solitaire and many other card games. 
Card tricks, bridge tutors, and poker betting 
systems have also been programmed. 

o. Board and word games: included in this group 
are the old favorites of chess, backgammon, and 
checkers and the new-fangled Clue™, Mono- 
poly™, Boggle™, and Scrabble™. Some of the 
word games may be equipped with vocabularies 
of up to 90,000 words. Chess, checkers, and 
backgammon programs can already compete at 
the master level, and it is only a matter of time 
before they become reigning world champions. 


6. Gambling games: all the games in Vegas, from 
one-armed bandits to roulette, have been 
adapted to the personal computer. For those 
who take gambling seriously, programs are 
available to perform complex handicapping 
analysis for horse racing and football games and 
to do the calculations necessary for the predic- 
tion of other sporting events. 

7. Sports games: football, baseball, auto racing, 
skiing, and numerous other sports have been 
computerized and often include live action with 
complex graphics. 

8. Party games: many popular party games, from 
charades to spin the bottle, have been pro- 
grammed. For those willing to take the advice of 
a computerized sex analyst, several commercial 
programs will ask you and your mate a series of 
questions and then determine the optimum 
“interlude,” for which it provides explicit in- 
structions. 


158 


BOARD AND STRATEGY GAMES YOU CAN PROGRAM 


Although most of the popular live-action or 
real-time games on the market required hundreds 
to thousands of man-hours to develop, many nonan- 
imated games can be written by the beginner and 
are sometimes just as entertaining as the more 
complex games. A sampling of game ideas to tackle 
in BASIC follows; some would require less than 30 
program lines, and others are more difficult, possi- 
bly requiring hundreds of lines. 


Board and Logic Games 


Many popular board and logic games take on an 
added dimension when computerized, especially if 
the computer 1s programmed to be the opponent. 
Some of the many possibilities include the following 
games: 

Tricolor. Tricolor is a game played on a hex 
board with hexagonal cells colored red, white, and 
blue (or different shades). An actual playing board 
should be used in the computerized version, be- 
cause creating a board display on a video screen 
would be difficult. 

Each player begins with 18 pieces. Those of 
one player are white; those of the other are black. 
At the start of the game, white places his pieces on 
hexes 1-18, and black on hexes 44-61 as shown in 
Fig. 7-1. 

The pieces are called stacks because you can 
place more than one piece together to form a stack. 
The range of a stack, that is, the maximum number 
of cells it can traverse in any one direction in a 
single move, is determined by the number of pieces 
in the stack; one cell for a single piece, two cells for 
a stack of two pieces; and three cells for any larger 
stack. 

The combat strength of a stack depends upon 
both the number of pieces it contains and the color 
(or shade) of the cell on which it rests. Taking the 
strength of a single white piece on a white cell as 
the unit, the strength of a stack of two pieces on a 
white cell is two units, and the strength of any 
larger stack on a white cell is three units. The 
Strength of a stack on a black cell 1s twice what it 
would be on a white cell, anda stack on a red cell is 


Fig. 7-1. The Tricolor game board. 


worth three times as much as it would be on a white 
cell. 

Players take alternate turns, each moving a 
single stack along a diagonal or horizontal line as far 
as he wishes, within the range of the stack. The 
entire stack or only a portion of it can be moved; the 
number of pieces in the part moved determines the 
strength of the stack. Occupied cells may not be 
jumped, but a player may move his stack to a cell 
occupied by another stack owned by himself or by 
the opponent. If the stack 1s his own, the stacks are 
merged. If the opponent owns the other stack, an 
“attack” has been initiated, and the disposition of 
pieces is as follows: a stack may attack an opposing 
stack only if it 1s stronger (contains more pieces). If 
it is more than twice as strong, the opposing stack 
is “killed,” and all hostile pieces in the stack are 
removed from play; friendly pieces are added to the 
winning stack. If the attacking stack 1s not more 
than twice as strong, it “captures” the opposing 
stack by combining it with itself. If a capture or kill 
can be made ina player’s turn, 1t must be made. The 
game ends with the capture or killing of all of one 
player’s pieces. 

Black Sheep. Black sheep is played on a 


chessboard between two players, one “white” and 
the other “black.”” White begins the game with four 
white checkers that are placed on the four black 
squares on one side of the chessboard. Black uses 
one black checker and places it on either of the 
middle black squares on the opposite side of the 
board. The white pieces may only move forward to 
the opposite side; black may move forward or 
backward. Both colors may only move one square 
at a time and only on the diagonal. 

Black moves first and then moves alternate. 
The object for black is to reach the opposite side of 
the board without being “trapped” (surrounded by 
white pieces in such a way that there is no adjacent 
diagonal unoccupied square to move to). The ob- 
jective for white is to trap black before it reaches 
the other side of the board. Apparently, no one has 
determined a winning strategy for this game; thus it 
would be challenging to develop a heuristic strategy 
for the computer to play either side. 

Jam. In this simple, yet challenging game, the 
small circles in the diagram in Fig. 7-2 represent 
cities; the lines represent roads. Each road has a 
designated number. Players alternate turns choos- 
ing one of the nine roads as their own property. The 


Fig. 7-2. The Jam game board. 
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winner Is the first to own three roads that connect 
directly with any one city. The game may be won 
with a mathematical strategy similar to that used in 
tic-tac-toe. 

Hot. “Hot” is a clever variation of tic-tac-toe. 
The following words are listed on a computer 
screen: TANK, WOES, SHIP, WASP, HOT, 
BRIM, HEAR, FORM, TIED. Players take alter- 
nate turns picking one word from the list; words are 
removed from the list as they are chosen. The first 
player to pick three words that contain the same 
single letter is the winner. 

The game may be analyzed by the computer in 
the same manner as tic-tac-toe, 1f the words are 
arranged on the board as in this diagram: 


SHIP | BRIM | TIED 
WASP | HEAR | TANK 
WOES | FORM] HOT 


Fig. 7-3. The Bridge-it game board. 
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By choosing three words in a row horizontally, 
vertically, or diagonally, a player can win the game. 
Thus, the strategy for play is the same as in tic- 
tac-toe, except the player that does not know these 
congruencies Is at a disadvantage. 

Bridge-it. In the game of Bridge-it, the first 
player is designated as 0 and the second player as X. 
Using the grid shown in Fig. 7-3, putting a con- 
necting line between two horizontally or vertically 
adjacent markers of the player’s symbol. The 0 
player attempts to form a connected “bridge” from 
the top to bottom of the board, while the X player 
attempts to form a bridge from the left to right side 
of the board. The first to form a bridge wins the 
game. 

A winning strategy exists for this game as 
illustrated in Fig. 7-4. For the 0 player to win, he 
should put his first line between the Os at positions 
9, 2, and 11, 2 as shown in Fig. 7-5. The game may 


Fig. 7-4. The Bridge-it game board showing a win by X. 


be won by the 0 player if the following strategy 1s 
used. Whenever X joins a connecting line, the line 
will touch one of the dotted lines or semicircles in 
Fig. 7-5. 0 should draw a connecting line between 
two 0 markers such that the line will touch the end 
of the dotted line just touched by the line drawn by X 
following each X turn. In this manner, 0 will inevit- 
ably win. 

Hex. Hex is a game similar to Bridge-it, but 
the game has not been solved such that a win is 
always certain. For this reason, hex would probably 
be more interesting to play against a computer. A 
heuristic strategy similar to that used in Bridge-it 
could be employed. 

One game of Hex is played on a board com- 
posed of hexagons, with eleven hexagons on each 
side (although other sizes have been used). Two 
opposite sides of the board are named black, while 
the other two are named white, as shown in Fig. 
7-6. The hexes at the four junctions between sides 
are neutral. One player has black pieces, the other 
player has white. Alternate turns are taken, with 
each player placing one of his pieces on any unoc- 


cupied hexagon. The object for both players is to 
complete a continuous chain of his pieces between 
the two sides labeled by his color. The game is 
mathematically solvable on boards with certain di- 
mensions. For an interesting discussion of winning 
strategy and Hex variants, the reader is referred to 
The Journal of Recreational Mathematics, Vol. 8(2), 
1975-1976, p. 120. 

Cross Capture. Cross Capture is played ona 
chess board. At the start of the game, a set of 
randomly distributed letters or numbers 1s put on 
the board (video display), with no more than one 
character per square. Most of the board remains 
empty. A sample board is shown in Fig. 7-7. 
Players take turns choosing one of the letters, and 
all other letters on the board that fall in a given 
category become property of that player. One 
category may be defined as all the letters in the 
same horizontal, diagonal, or vertical row as the 
chosen letter or as all the letters within a certain 
proximity to the chosen letter (for example, one 
space away). The player who possesses the most 


Fig. 7-5. 
Strategy. 


The Bridge-it game board showing a winning 
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Fig. 7-6. The Hex game board. 


letters at the end of the game 1s declared the win- 
ner. 

Tic-tac-toe variation. An interesting tic- 
tac-toe variation 1s played as follows. Each player 
puts his three pieces ona tic-tac-toe board such that 
piece ownership alternates around the periphery of 
the board. Following this setup, each player is al- 
lowed to move one of his pieces to an adjacent 
square. The winner of the game Is the first to make 
three-in-a-row. 

Tuknanavuhpi. Tuknanavuhpi is a Hopi In- 
dian chase game played on a 4 xX 4 board with 
diagonals drawn in each of the 16 squares. Pieces 
move on the points where lines meet on the board, 
not on the squares. There are two players; each one 
has 20 pieces placed on the board as indicated in the 
diagram in Fig. 7-8. The middle of the board is 
initially empty. 

Players take alternate turns moving their 
pieces in any direction along the lines on the board, 
from one intersection to another adjacent intersec- 
tion. As incheckers pieces are captured by jumping 
over any of the opponent’s pieces. The winner 1s the 
player who has captured all of his opponent’s 
pieces. 

Many other games popular in other cultures 
but undiscovered in the United States are well- 
suited to be computer games. These include 
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Teekso, Hasami Shogi, Dreidel, Bell and Hammer, 
Asalto, Yofe, Ur, and Alquerque, which are refer- 
enced in game encyclopedias. 

Nim. The game of Nim has become a very 
popular computer game. The rules are simple. 
From a pile of any number of items (13 is the usual 
number), players take turns picking one, two, or 
three items. The player forced to pick up the last 
item loses the game. A winning strategy for the 
second player is to ensure that with every move you 
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Fig. 7-7. Asample Cross Capture game board at the start ofa 
game. 
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Fig. 7-8. The Tuknananupi game board. 


leave the pile with the number of objects equal to 9, 
Oo, or 1. The program in Listing 2-1 plays and ex- 


rd 


NZ / | [] =PIECE FOR 
SH /| PLAYER #1 


O = PIECE FOR 


/oN S PLAYER #2 


plains a variant of Nim. You can adapt it to play the 
Nim variations explained below. 


Listing 7-1: The Nim Program 
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See FOR T=1 TO 1a 
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S40 TATA I MUST be SURPERIQE. HOM DD MOT GET AMR 
Sak EMD 


Nim Variations. Here are a few games that 
can be mathematically analyzed in a manner similar 
to the way Nim has been analyzed 


e Rectangular dominoes: players take turns placing 
dominoes on a chess-type board or a board of 
arbitrary size (8 x 81s fine). The board is of a size 
such that a domino placed horizontally or verti- 
cally on it will cover up exactly two squares. The 
first player places his dominoes horizontally, the 
second player places his vertically; dominoes 
may not overlap. The winner of the game ts the 
player who makes the last possible move. Figure 
7-9 shows a sample game. 

e Welter: the board for this game consists of an 
arbitrary number of squares in one line (usually 
about twenty). An arbitrary number of tokens are 
randomly placed in the squares, with only one 
token in each square (there are usually about five 
tokens). A sample game is shown in Fig. 7-10. 
Players take turns moving a single token to any 
unoccupied square to the left, jumping over other 


Fig. 7-9. A sample Rectangular Dominoes game. 


tokens 1f desired. The player who makes the last 
move wins the game. 

Traffic Jam: the game board in Fig. 7-11, repre- 
sents one-way roads between towns. An arbit- 
rary number of vehicles are placed on the board to 
Set-up the game. Players take turns moving one 
of the vehicles in the proper direction from one 
town to an adjacent town. The game continues 
until a traffic jam develops, in which no further 
moves are possible; the player who makes the 
final move is declared the winner. 

Innocent Marble game: in this game, either zero, 
two, or four markers may be placed in the circles 
on the game board shown in Fig. 7-12; only one 
marker may be in any one circle. Players take 
turns moving any one marker from one circle to 
an adjacent one, in the directions of the arrows. 
Whenever a marker is moved to a circle that is 
already occupied, both markers are removed 
from play. The winner is the player making the 
last possible move. 


e Tsyanshidzi: this is the Chinese national game 
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Fig. 7-10. A sample Welter game. 


in which players may select from two piles of 
objects either an arbitrary number of objects 
fromone pile or the same number of objects from 
each pile, but no fewer than one object from each 
pile. As always, the player taking all remaining 
objects wins. This game requires a more com- 
plex analysis than the simple game of Nim does. 
e Acey-ducey: in this game the computer “shuf- 
fles” a card deck and deals two cards. The player 
then bets against the computer, wagering that the 
next card dealt will fill in between the first two 
cards in rank. Can you determine the mathemati- 
cal strategy behind a winning program? 
Neutron. Neutron is atwo-player game played 
ona) X 5grid, as shown in Fig. 7-13. At the start of 
the game, White owns the five pawns at the top, and 
Black the five pawns at the bottom. The neutron (n) 
begins at the center and 1s neutral. Each turn has 
two parts: first, the player must move the neutron 
in any one direction, and then the player must move 
one of his pawns in any direction. The winner 1s the 
first to maneuver the neutron to his back row, 
whether moved by himself or by forcing the oppo- 


Fig. 7-11. The Traffic Jam game board. 
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Fig. 7-12. The Innocent Marble game board. 


nent to do so. You can also win by stalemating an 
opponent —that is, by trapping him so that he can 
not complete his turn. For instance, if Black can 
completely surround the neutron with his pawns so 
that White can not complete his turn, Black wins. 
There is another thing to remember: any time a 
pawn or neutron is moved, it must be moved as far 
as It can go ina straight line (within the game board 
confines). A piece stops just before it reaches 
another piece of wall. Also, to even things out, 
White moves first but does not move the neutron on 
this first turn. A program to play Neutron would be 
based on tree-searching principles, as described in 
most artificial intelligence books and in the Etudes 
for Programmers (Wetherell, Prentice-Hall, 1978). 
This would be an ideal prelude in programming for 
those interested in computer chess. 

Hexpawn. This game was first introduced by 
Martin Gardener in Scientific American (Volume 
200, No. 3). The game is played on a3 X98 grid as in 
tic-tac-toe. The two players each place their three 
pleces as shown in the first diagram in Fig. 7-14. 
The pieces move in a manner similar to the way 
pawns move inchess, that 1s, they move one space 
diagonally to capture and remove an opponent’s 
piece. Players alternate turns, and the winner is the 
first player to reach the opponent’s side of the board 
witha piece or the remaining player when the oppo- 
nent has no legal move. 


Hexpawn presents an excellent opportunity to 
write a program that learns as it plays, because the 
number of different ways to play is small. Consider 
the game shown in the third diagram in Fig. 7-14. 
The computer must choose between one of the four 
moves indicated. If number 4 is chosen and leads to 
defeat, this information 1s stored and the mistake is 


| boty 
a an ae oe AFTER BLACK'S 


eee) | @ | FIRST MOVE 
1 y ! 


| 


USER MOVES 
HIS CENTER PIECE 


THE USER CAN THEN 
CAPTURE AN OPPOSING | 
PIECE AND THE GAME 
IS OVER. 


| T@ BLACK WINS ON 
| THE SECOND 
/o | | MOVE 


| em) ele 


Fig. 7-13. The Neutron game board. Fig. 7-14. The Hexpawn game board. 


167 


not repeated in the future. The computer continues 
to randomly select legal moves, provided these 
moves have not proven fatal in previous games, 
until it becomes a perfect player. 

Countdown. How’s your sense of timing? 
One or two players can test their skill with the 
computer serving as timekeeper and scorekeeper. 
First, the computer chooses and displays a random 
amount of time (say, from five to sixty seconds). 
Each player then presses a key when he or she 
thinks that amount of time has elapsed. The person 
who is closer is declared winner. Computers can 
execute a FOR-NEXT loop while the time is elaps- 
ing and from the number of executions multiplied by 
a time factor, determine the time elapsed. A varia- 
tion of this game could test reaction time of two 
players; as soon as the word GO is displayed, the 
two players race to push their own keys, and the 
computer determines who reacted faster. 

Mill. Mill isatwo player game using the board 


Fig. 7-15. The Mill game board. 
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shown In Fig. 7-15. Players alternate turns, placing 
one of their nine pieces on any of the corners or 
intersections of lines on the board. The moment 
one player gets three pieces in line, he may remove 
an opposing piece, provided that piece is not part of 
three in a row already. 

After each player’s nine pieces are placed, 
they may be moved one at a time to a vacant and 
adjacent corner or intersection. If any other lines of 
three are formed, another opposing piece may be 
removed. If a player has only three pieces on the 
board, he may move any one piece to any corner or 
intersection during his turn. The first player to be 
left with only two pieces is the loser. 

Marked Square Game. In this simple game, 
the game board is a 9x9 grid. Players alternately 
mark one square with their initials. At the end of the 
game when all squares are filled, players receive 1, 
2, or 3 points (respectively) for 3, 6, or 9 squares 
with their initials in a row; the player with the most 


points wins. The computer could serve as 
scorekeeper or opponent. 


Star Fight 


One of the earliest and most popular computer 
games 1s based upon the famous television series 
Star Trek. In this strategy game you are captain of 
the starship Enterprise, and you have been as- 
signed the task of seeking and destroying a fleet of 
Klingon warships (usually around 20) that are 
menacing the United Federation of Planets. You are 
given a specified number of stardates to complete 


Listing 7-2: The Star Fight Program 


I *PRINTCHRS C147) TAB( GS sees STAR FIGHT 


3 REM 
5 REM 
7 DIM AC5),T(5),RC5) FCS) ,DCS) HOS) CCS) 


your mission, lest the empire be destroyed. Fortu- 
nately, you have a few star bases for resupplying 
your ship, although you must find them. You are 
assigned a random starting position in the galaxy, 
which is divided into an 8X8 quadrant grid. Each 
quadrant is subdivided into an 8x8 section grid. 
The program will explain the 12 command options, 
which include firing weapons, maneuvering, using 
clock devices, and heaven-forbid, self-destructing. 
The version in Listing 7-2 is one of the most com- 
plete in print and consumes about 20K of memory. 
Because it 1s written in BASIC, it can easily be 
modified until the universe 1s to your liking. 


9 Hl=02 F=023R=0: DS0: D2=0; 0320; Bl=O0sB2=02 C=O: C10; P=O025=0 


11 B$=""PHASER BANKS" 

13 C$="CLOAK ACTIVATED*#" 
15 K$="KLINGON" 

17 E$="ENGINEERING REPORTS" 
19 P$="PHOTON TORPEDOES" 

21 D$="", DAMAGE REPORT--" 
23 H$="HIGH ENERGY PLASMA BOLT" 
25 G$="DAMAGE" 

27 FOR X=1 TO 5 

29 A(X)=0:T(X)=0 

31 R(X)=0:F(X)=0 

33 D(X)=0 

35 H(X)=0 

a7 CCE 

39 NEXT 

it “PBsve5 

43 Rl=1 


PRINT"SPACE--THE FINAL FRONTIER. THESE ARE " 
PRINT'THE VOYAGES OF THE STARSHIP ENTERPRIZE." 
PRINT"HER FIVE YEAR MISSION--TO EXPLORE" 
PRINT"STRANGE NEW WORLDS, TO SEEK OUT NEW" 
PRINT'LIFE AND NEW CIVILIZATION, TO BOLDLY" 
PRINT"GO WHERE NO MAN HAS GONE BEFORE." 

PRINT" (SWISH, TRUMPETS)":GOSUB 1127 

PRINT 
PRINT 
Q=(10*RND(O)) 

PRINT"YOU ARE ON PATROL IN ARCTURUS SECTOR" 
PRINT Q:"WHEN YOU PICK UP UNEXPECTED SENSOR" 
PRINT'READINGS, CONFIGURATION-———" 

PRINT" — KLINGON BATTLE CRUISERS" 

PRINT"DO YOU NEED A SUMMARY OF YOUR SHIP'S" 
INPUT"CAPABILITIES"; A$ 
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IF A$<>"YES" THEN 105 


PRINI™CAPABLLITIES: OF. THE: USS. ENTERPRIZE:” 
PRINT’ AFTER THE QUESTION MARK TYPE TWO DIGITS" 
PRINT'SEPARATED BY COMMAS--EXAMPLE,0,0. THE" 
PRINT"FIRST DIGIT IS THE OPTION." 

PRINT" THE SECOND DIGIT IS THE SHIP TO ATTACK." 
PRINT'COMMAND OPTIONS:":PRINT"™ 1 FIRES PHASERS." 
PRINT" 2 FIRES SECRET WEAPON" 

PRINT" 3 FIRES FRONT PHOTON TORPEDOES" 
PRINI™ 4 FIRES REAR PHOTON TORPEDOES" 
PRINT" 5 FIRES HIGH ENERGY PLASMA BOLT" 
PRINT" 6 ACTIVATES SELF DESTRUCT" 

PRINT" 7 FOR CHANGE OF WARP SPEED" 

PRINT" 11 ACTIVATES CLOAKING DEVICE" 

PRINT" 12 DEACTIVATES CLOAKING DEVICE" 
PRINT" 13 TURNS SHIP 180 DEGREES" 

PRINT" 14 DIVERTS POWER TO REPAIRS." 

PRINT" 15 DIVERTS POWER TO WEAPONS." 

PRINT 

PRINT 

PRINT "HOW MANY KLINGONS DO YOU WANT TO FIGHT"; 


INPUT Nl 

N1=INT(N1) 

IF N1>O THEN 121 

PRINT'THE KLINGONS "; 

GOTO 125 

IF N1<6 THEN 129 

PRINT" THE KLINGONS ONLY " 

PRINT"HAVE 5 BATTLE CRUISERS IN THIS QUADRANT" 
GOTO 109 

Te Nie) THEN: 71:39 

IF Nl>2 THEN 135 

Sess Ls] sHC2 ee] 

PRINT N1;"KLINGONS"; 

GOTO 143 

PRINT N1;k$ 

S237 eas 5 

PRINT’COMING INTO RANGE--SHIELDS ON" 

PRINT 
FOR JT=1 TO Nl 

RC I )=400000.+RNDCO)*200000. 

A( I )=360*RND(O) 

PRINT" RANGE OF "eKS:T:"="sRC1)3" KM. AT "s3A(1)3'" DEGREES" 
NEXT I 


GOTO 377 
M=0:D1=0:N2=0 

PRINT"YOUR MOVE--DIRECTED AT "sK$s 
INPUT M1,K 

K=INT(K) 

M1=INT(M1) 

IF M1>O THEN 181 

GOSUB 975 

GOTO 537 

IF M1>16 THEN 387 

IF K>N1 THEN 387 


185 IF M1<14 THEN 189 

187 ON(M1-13)G0T0363, 371,159 
189: -ON Ml GOTO: 231,231, 191,197,231 ,.233,233;231,,2335.233 233; 3414349 
191 IF F>=20 THEN 407 

193 IF ACK)>180 THEN 387 
195 GOTO 201 

197 IF R>=10 THEN 417 

199 IF A(K)<180 THEN 387 
201 IF R(K)<200000 THEN 387 
203 IF R(K)>600000THEN 387 
205 IF H1l>=9 THEN 387 

207 IF C(K)=1 THEN 387 

209 JF Nl<>1 THEN 215 

2b N 2S) 

213 GOTO 233 

215 PRINT"HOW MANY ":P$;" DO YOU WANT TO FIRE"; 
217 INPUT N2 

219 N2=INT(N2) 

221 IF N2>(N1*2)-1 THEN 395 
223 IF N2<1 THEN 395 

225 IF C=1 THEN 229 

227 GOTO:-231 

229 IF N2>5 THEN 391 

231 IF C(K)=1 THEN 387 

233 ON M1 GOTO 235,251,257, 267,273, 8/5,913, 965, 961, 309, 333 
235 IF R(K)>300000 THEN 387 
237 IF A(K)>180 THEN 387 
239 IF H1>=8 THEN 387 

241 N3=2/M1 

243 P=P+N3 

245 GOSUB 975 

247 N2=N3 

249 GOTO 461 

251 IF R(K)>300000 THEN 387 
253 IF ACK)<180 THEN 387 
255 GOTO 239 

257 F=F+4N2 

259 IF F>20 THEN 401 

261 P=P+N2 

263 GOSUB 975 

265 GOTO 461 

267 R=R+N2 

269 IF R>10 THEN 411 

271 GOTO 261 

273 IF H1l>=8 THEN 387 

275 IF C=1 THEN 387 

277 IF RC(K)<100000 THEN 387 
279 IF R(K)>300000 THEN 387 
281 B1l=Bl1+1 

283 TF Bids. THEN. 421 

285 P=P+3 

287 GOSUB 975 

289 B=RND(O) 

291 IF B>.7 THEN 297 

293 IF .Bo.2 “THEN, 303 

295 GOTO 529 

297 PRINT'DIRECT HIT ON ":K$3K 
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299 H(K)=H(K)+4 
301 GOTO 491 

303 PRINT'HIT ON '":K$3K 

305 H(K)=H(K)+2 

307 GOTO 491 

309 IF Hl>=7 THEN 387 

311 IF H1<5 THEN 387 

313 PRINT’HOW MANY MILLION STROMS DO YOU WANT TO" 
315 INPUT'USE";P1 

317 P1=INT(P1) 

319 IF P1<O THEN 387 

321 P=P+P1 

323 GOSUB 975 

325 Hl=<H1-(P1*.5) 

327 IF Hl>=5 THEN 537 - 

329 PRINT"SHIELDS FIRMING UP" 

331 GOTO 537 

333 IF C=1 THEN 387 

335 Cel 

337 PRINT C$ 

339 GOTO 165 

341 IF C=0 THEN 387 

343 PRINT'CLOAK DEACTIVATED" 

345 C=0 

347 GOTO 167 

349 IF C(K)=1 THEN 387 

351 IF A(K)<180 THEN 357 

353 A(K)=A(K)-180 

355 GOTO 359 

357 A(K)=A(K)4180 

359 PRINT K$:K;" NOW AT'’:A(K):'"DEGREES" 
361 GOTO 167 

363 Rl=2 

365 P3=.5 

367 PRINT'POWER DIVERTED TO REPAIRS" 
369 GOTO 165 

371 P3225 

373 PRINT'’POWER DIVERTED TO WEAPONS" 
375 GOTO 165 

377 IF C<>1 THEN 38] 

379 PRINT C$; 

381 IF P3=2.5 THEN 373 

383 IF P3=.5 THEN 367 

385 GOTO 165 

387 PRINT"MOVE IMPOSSIBLE, TRY AGAIN" 
389 GOTO 167 

391 PRINT"WITH THE CLOAK ACTIVATED ONLY 5 ":P$;" MAY" 
393 GOTO 397 

395 PRINT'WITH "3N13" KLINGONS ONLY '3(N1*2)-1;P$;" MAY" 
397 PRINT'BE FIRED AT A TIME" 

399 GOTO 165 

40] F=F-N2 

403 PRINT'ONLY"; 20-F;"FORWARD '':P$3;"LEFT" 
405 GOTO 165 

407 PRINTOUT OF FORWARD ":P$ 

409 GOTO 167 

411 R=R-N2 

413 PRINT"ONLY': 10-R;"REAR ";P$3" LEFT" 
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415 


417 
419 


421 
423 
425 
427 
429 
431 
433 
435 
437 
438 
439 
440 
44] 
443 
445 
447 
449 
451 
453 
455 
457 
459 
461 
463 
465 
467 
469 
471 
473 
475 
477 
479 
48] 
483 
485 
487 
489 
49] 
493 
495 
497 
499 
501 
503 
505 
507 
509 
= pal 
eles) 
515 
oy 
519 
O21 
223 
525 


GOTO 165 


PRINT"OUT OF REAR '';P$ 

GOTO 167 

PRINT OUT-OF “HS. 6" 

GOTO 167 

PRINT"SECONDARY DILITHIUM CIRCUIT FUSED" 


PRINT" IMPULSE POWER ONLY,LIMIT 2 MILLION STRS" 
PRINT"WARNING--IF CAPACITY OF IMPULSE ENGINE " 
PRINT"IS EXCEEDED, IT WILL IMPLODE" 


Cl=2 
GOTO 443 


PRINT'PRIMARY DILITHIUM CIRCUIT FUSED," 


PRINT" SWITCHING TO SECONDARY" 


PRINT"OVERLOAD CAPACITY FOR THIS CIRCUIT IS" 


PRINT"10 MILLION STROMS" 
Gl=] 

P= 

Le Miles. THEN 457 

IF Ml=3 THEN 453 

R=R-N2 

GOTO 167 

F=F-N2 

GOTO 167 

Bl=Bl1-1 

GOTO 167 

BOR: f= Oo-N 2 

B=RND(O) 

IF B>(R(K)*5.E-O07+.55) THEN 473 
IF B>(RCK)*5.E-07+.25) THEN 479 
M=M+1 

GOTO 483 

H(K)=H(K)+2 

PRINT "DIRECT HIT**"; 
GOTO 483 

H(K )=H(K)+1 
PRINT"HIT#*"; 

IF H(K)>=8 THEN 489 

NEXT I 

IF M=N2 THEN 529 

PRINT 

IF H(K)<6 THEN 495 
FCK)=F(K) +1 


PRINT"DAMAGE TO ";K$3;K;"IN THIS ATTACK--" 


IF H(K)>8 THEN 521 


ON INTCHCK))GOTO 501,501,505,505,509,513,517 


PRINT"SHIELDS HOLDING, NO DAMAGE" 
GOTO 531 


PRINT"SHIELDS WEAKENING, MINOR DAMAGE" 


GOTO 531 

PRINT"ALL SHIELDS DESTROYED" 
GOTO 531 

PRINT B$;" DEACTIVATED" 

GOTO 531 

PRINT"ALL WEAPONS DEACTIVATED" 
GOTO 531 

PRINT 

PRINT 26204626" 2K $ 2K s "DESTROYED * #3365 
C(K)=1 
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597 GOTO 537 
529 PRINT'NEAR MISS" 

531 IF F(K)<>3 THEN 537 

533 PRINTK$:K;" CAN NO LONGER REPAIR ITSELF" 
535 F(K)=4 

537 IF Hl>=9 THEN 543 

539 P=P-P3 

541 GOTO 545 

543 P=P-P3-.5 

545 IF D>4 THEN 605 

547 IF P3=2.5 THEN 605 

549 FOR I=1 TO Rl 

551 Zl=H1-.5 

553 IF Zl>-1 THEN 559 

555 Hl=-1 

557 GOTO 561 

559 HI=H1-.5 

561 IF H1=9.5 THEN 565 

563 GOTO 567 

565 IF Cl<>2 THEN 577 

567 IF H1=8.5 THEN 581 

569 IF H1=7.5 THEN 593 

571 IF Hl=6.5 THEN 597 

573 IF Hl=4.5 THEN 601 

575 GOTO 603 

577 PRINT E$;" WARP ENGINES REPAIRED" 
579 GOTO 603 

581 IF F<20 THEN 585 

583 IF RS=10 THEN 589 

585 PRINT E$:" "sPSs"PROSECT( 

587 GOTO 603 

589 PRINT E$:" NORMAL POWER LEVELS RESTORED" 
591 GOTO 603 

593 PRINT E$:" "3BSs" REPATRED" 
595 GOTO 603 

597 PRINT E$;" SHIELDS RESTORED AT A LOW POWER LEVEL" 
599 GOTO 603 

601 PRINT ES;" SHIELDS FTRMING UP" 
603 NEXT I 

605 FOR K=1 TO Nl 

607 TF C(K)=1 THEN 723 

609 IF C=0 THEN 617 

611 IF Ml=0 THEN 647 

613 TF H(K)>5 THEN 651] 

615 IF F(K)>2 THEN 651 

617 IF R(K)<=500000. THEN 621 

619 IF H(K)<7 THEN 637 

621 IF R(K)>=1.E+06 THEN 625 

623 IF H(K)>=7 THEN 651 

625 IF R(K)<=200000. THEN 629 

627 IF H(K)>6 THEN 651 

629 IF R(K)>=300000 THEN 633 

631 IF H(K)<6 THEN 669 

633 IF peer wanes THEN 637 

635 IF T(K)<10 THEN 707 

637 IF H(K)<6 THEN 641 

639 TF T(K)=10 THEN 65] 

641 R(K)=R(K)/2 
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643 


713 
715 


ores 
725 


741 
743 
745 
747 
749 
751 
(Pes 
755 
7TO/ 


PRINT K$;K;" APPROACHING" 

GOTO 725 

PRINT K$3K3" DOING NOTHING" 

GOTO 733 

IF H(K)>=7 THEN 657 
RCK)=R(K)+200000.+RND(-1)*100000. 

GOTO 659 
R(K)=R(K)+100000.+RND(-1)*50000. 

PRINT K$3;K" ATTEMPTING TO BREAK CONTACT" 
IF RC(K)<1.E+06 THEN 725 

PRINT K$;K" OUT OF SENSOR RANGE--CONTACT BROKEN" 
CCK )=1:D(K)=1 

GOTO 723 

IF Nl>2 THEN 673 


_ IF RND(O)<.7 THEN 677 


PRINT K$3K;'' FIRES PHASERS AT ENTERPRIZE" 
GOTO 803 

IF B2=10 THEN 673 

IF R(K)<100000 THEN 673 

B2=B2+1 

TF B2=10 THEN 689 

PRINT K$;K;'' LAUNCHES "$H$ 

GOTO 691 

PRINT K$;K;'' LAUNCHES ITS LAST "3;H$ 
B=RND(O) 

IF B>.74+C*3 THEN 703 

IF B>.24+C*4 THEN 699 

GOTO 811 

H1=H1+1 

GOTO 821 

H1=H1+2 

GOTO 815 

IF N1>2 THEN 711 

IF RND(O)<.4 THEN 637 
TOMETCR) 41 

IF T(K)=10 THEN 719 

PRINT K$;K;" FIRES '";P$ 

GOTO 803 

PRINT K$3K;"' FIRES ITS LAST ";P$ 
GOTO 803 

D1=D14+1 

EF <4 THEN F335 

IF D>9 THEN 733 

PRINT E$;'" FURTHER MAJOR REPAIRS IMPOSSIBLE" 
D=10 

NEXT K 

ITF DI1=N1 THEN 993 

PRINT 

FOR J=1 TO Nl 

IF C(J)=1 THEN 757 
R(J)=R(J)-RND(-1)*1000 

IF R(J)>1000 THEN 749 
R(J)=R(J)+(RND(-1)*100000) 
A(J)=A(J)-(5*RND(-1)) 

IF A(J)>10 THEN 755 
A(J)=A(J)+(20*RND(-1)) 

PRINT" RANGE OF ";K$3J;"="3R(J)3;"KM. AT":A(J):"DEGREES" 
NEXT J 
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759 


851 


853 
855 
857 
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FOR: f=? TO: Ni 

IF C(I)=1 THEN 797 

IF F(I)>=3 THEN 797 

HC I)sHC1I)-.5 

IF H(I)>S THEN 771 

HOD jes 

LF HCI) <>655. THEN: 7-75 

IF TC1I)<10 THEN 783 

IF HC 1I)=5.5 THEN 787 

IF H(1)=4.5 THEN 791 

IF HC 1)=2.5 THEN 795 

GOTO 797 

PRINTK$:1I;'' HAS REPAIRED ITS PHOTON TORPEDO PROJECTORS" 
GOTO 797 

PRINT K$;1;'' HAS REPAIRED ITS ";B$ 

GOTO 797 

PRINT K$:1;'' HAS RESTORED ITS SHIELDS AT LOW POWER" 
GOTO 797 

PRINTK$;1;" HAS RESTORED ITS SHIELDS TO FULL POWER" 
NEXT I 

PRINT'YOUR CURRENT POWER OVERLOAD IS "';P3"MILLION STROMS" 
GOTO 377 

B=RND(O) 

IF B>(CRCK)*5. E-O7+.6+C*.4) THEN 815 

IF B>(RCK)*5.E-O7+.34+C*.2) THEN 82] 

LF Bd. > THEN: 627 

PRINT'NEAR MISS" 

GOTO 725 

PRINT'DIRECT HIT ON USS ENTERPRIZE "s;D$ 
H1=H1+2 

GOTO 833 

PRINT"HIT ON USS ENTERPRIZE ":D$; 

H1=H1+1 

GOTO 833 

IF Ml<=0 THEN 811 

PRINT" YOU OUTMANEUVERED HIM; MISSED" 

GOTO 725 

IF H1<8 THEN 837 

D=D+1 

IF H1l>=11 THEN 869 

IF H1<5 THEN 843 

ON INTCH1-4) GOTO 847,847,851,855, 859,865, 869 
PRINT"SHIELDS HOLDING, NO DAMAGE" 

GOTO 725 

PRINT'SHIELDS WEAKENING" 

GOTO 725 

PRINT" ALL SHIELDS DESTROYED" 

GOTO 725 

PRINT B$;" DEACTIVATED, "'; 

GOTO 851 

PRINT 

PRINT"ALL WEAPONS, SHIELDS DEACTIVATED, POWER DROPPING" 
GOTO 725 

PRINT"WARP POWER GONE" 

GOTO 861 

PRINT "USS ENTERPRIZE DESTROYED" 

D2=1 

GOTO 993 


875 
S77 
879 
881 
883 
885 
887 
889 
891 
893 
895 
897 
899 
901 
903 
905 
907 
909 
911 
913 
915 
O17 
919 
O21 
923 
925 
927 
929 
931 
933 
935 
O37 
939 
941 
943 
945 
947 
949 
951 
953 
955 
957 
959 
961 
963 
965 
967 
969 
971 
973 
975 
OTT 
OFD 
981 
983 
985 
eey, 
989 


PRINTTAB(10)"A C TIVATED" 
R1=9800*RND(-1)4+200 

PRINT" RADIUS OF EXPLOSION="3R1;'KM." 
FOR I=1 TO Nl 

IF C(1I)=1 THEN 905 

IF RCL)>R1 THEN 905 

TF R(I)>R1*.8 THEN 895 

PRINT K$31;"DESTROYED "; 
C(1I)=1 

GOTO 903 

H( 1)=H(1)+6 

IF H(1)>=8 THEN 889 
FCI)=F(1)41 

PRINT K$31;"HEAVILY ''3G$ 
PRINT” BY THE BLAST" 

NEXT I 

GOTO 871 

PRINT"IMPULSE ENGINE OVERLOAD" 
GOTO 877 

LP oGle2° THEN: 387 

IF H1>=10 THEN 387 

PRINT"'HOW FAST DO YOU WANT TO GO, WARP 1-8"; 
INPUT W 

IF W<O THEN 387 

IF W>8 THEN 387 

P=P4+W 

GOSUB 975 

IF M1<>9 THEN 933 

W=2 

FOR I=1 TO Nl 

IF C(1)=1 THEN 957 

RC L)=R(1)+W*100000.—-RND(-1)*50000. 
IF RC(I)>1.E+06 THEN 947 

IF ACI)>180 THEN 957 
A(1I)=AC1)+180 

GOTO 957 

C(1L)=1 

D(1)=2 

IF H(1)<7 THEN 955 

D(I)=1 

PRINT'LOST CONTACT WITH ";K$;1 
NEXT I 

GOTO 537 

W=1 

GOTO 925 

P=P+1 

GOSUB 975 

RCK)=R(K)/2 

ACK )=A(K)/2 

GOTO 537 

IF C<>1 THEN 979 

P=P+3 

IF P<=20 THEN 983 

IF Cl=0 THEN 437 

IF P<=10 THEN 987 

IF Cl=1 THEN 425 

IF P<=2 THEN 991 

IF Cl=2 THEN 909 
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991 RETURN 


993 PRINT 
995 PRINT 

997 PRINT'RESULTS OF THIS BATTLE:" 
999 PRINT 

1001 FOR I=1 TO Nl 

1003 IF C(I)<>1 THEN 1007 
1005 IF D(1)=1 THEN 1031 

1007 IF C(I)<>1 THEN 1011 
1009 IF D(I)=2 THEN 1035 

1011 IF C(I)=1 THEN 1021 

1013 IF H(1)>=6 THEN 1027 
1015 IF H(I)>=3 THEN 1043 
1017 PRINT K$;1;"NOT ";G$ 
1019 GOTO 1045 

1021 PRINT K$;1;"DESTROYED" 
1023 D3=D3+1 

1025 GOTO 1045 

1027 PRINT K$;1;"HEAVILY ";G$ 
1029 GOTO 1037 

1031 PRINT K$;1;"FORCED TO RETIRE" 
1033 GOTO 1023 

1035 PRINT'CONTACT LOST WITH "3K$3I 
1037 IF H(1)<6 THEN 1041 

1039 IF H(1)>=3 THEN 1023 
1041 GOTO 1045 

1043 PRINT K$;I:"LIGHTLY ";G$ 
1045 NEXT I 

1047 PRINT"USS ENTERPRIZE "; 
1049 IF D2=1 THEN 1071 

1051 IF Cl=2 THEN 1067 

1053 IF H1<5 THEN 1057 

1055 

1057 IF Cl=l THEN 1063 

1059 PRINT"NOT ":G$ 

1061 GOTO 1073 

1063 PRINT"LIGHTLY ":G$ 

1065 GOTO 1073 

1067 PRINT"HEAVILY ":G$ 

1069 GOTO 1073 

1071 PRINT'LOST" 

1073 IF D3<N1/2 THEN 1077 
1075 IF D2=0 THEN 1087 

1077 IF D3>=N1/2 THEN 1091 
1079 IF D2<>0 THEN 1083 

1081 IF D3>=1 THEN 1091 

1083 

1085 GOTO 1105 

1087 

1089 GOTO 1093 

1091 


1093 
195 
1097 
1099 
1101 
1103 
1105 
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ON INT(H1-4) GOTO 1063,1063,1067,1067,1067, 1067, 1067 


PRINT'THIS BATTLE AWARDED TO THE KLINGONS" 
PRINT'CONGRATULATIONS, YOU HAVE WON A MAJOR 
PRINT'CONGRATULATIONS, YOU HAVE WON A TACTI- 


PRINT 
PRINT"DO YOU WANT ANOTHER BATTLE "; 


INPUT Z$ 


ie 


PRINT'REPAIRS COMPLETED " 


Z$= "NO" THEN: 1123 


GOTO 9 
PRINT 


VICTORY!" 


CAL VICTORY" 


1107 PRINT'DO YOU WANT ANOTHER BATTLE" 
PLO9 INPUT -Z$ 

PUL SE ZS="NO THEN, LL23 

1113 PRINT'HERE'S ANOTHER STARSHIP,BE MORE CAREFUL THIS TIME" 
ELS GOIO 9 

Le Poa) 23 

PL19 GOTO: 9 

Ld?) LE D2=) THEN) 25 

1123 PRINT'REPORT TO STARBASE"; INTCRND(41)*12)+1 
1125 END 

Li27 REM TRUMPETS 

1129 $=54272 

1131 FOR X=S TO 54+24:POKE X,O:NEXT 

133°: POKE S454] OSPOKE: S465 19% 

1135 POKE S4+24,15 

1137 READ HF,LF,DR 

1139 IF HF<O THEN GOTO 1200 

1141 POKE S4+1,HF:POKE S,LF:POKE 5+4, 33 
T143.:FOR ‘P=1. TO DRsNEXT 

1145 POKE $4+4,32:FOR T=1 TO 50:NEXT 

1147 GOTO 1137 

1149 DATA 6,71,512,8,97,128,11,48,512 
Vo. DATAL TO, IAS NOB 897519274 2 VO2 
1153 DATA 9,104,192,12,143,1024,-1,-1,-1 
1199 5=0 

1200 RETURN 


COMPUTER QUIZZES e 1.Q. tests 


Computer quiz games can be instructive as ¢® Personality and aptitude tests 

well as fun, if clever programming techniques are ¢ Foreign language vocabulary or grammar 

used. Examples of these techniques include the ¢ Preschool skills including comparing and count- 

following: ing random shapes, words, and numbers, and 
copying letters, words, and numbers 

e Practice questions for examinations such as the 
SAT, GMAT, MCAT, LSAT, and ACT. 

e Analogies 

e Spelling bees 

e Verses from literature or the Bible 

e Trivia questions for trivia lovers, on science fic- 
tion, movies, and history 

e Basic math skills 

e Chemical equation balancing 

e English grammar 

e History of the United States, the Renaissance 
period, or World War | 

e Constellations or planets 


e Having a large data base of questions from which 
afew are randomly selected to produce a new set 
of questions for each quiz 

e Automatically recording the score and rewarding 
the player with graphic or musical interludes for 
good scores; new scores may be compared with 
old scores or with those of other players 

e Providing explanations of missed answers 

e Allowing for the selection of questions according 
to the player’s level of ability or providing for an 
automatically-adjusting level of difficulty based 
upon performance 


Assorted suggestions concerning topics for 
quiz games include the following: 


e Names and capitols of states or countries, possi: GAMES THAT USE WORDS 


bly using computer graphics to draw maps You can program a wide variety of games and 
e Vocabulary words activities based on words including the following: 
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° Cryptograms, or coded messages, could be dis- 
played for you to decode; simple clues could be 
provided. 

¢ Anagrams, or jumbled words, are a popular rec- 
reation. The program in Listing 7-3 randomly 
chooses one of many words stored in the DATA 
statements beginning with line 500. The program 
scrambles the letters in the word and prints it on 
the video screen for you to unscramble and input. 
The game of hangman, in which one has ten 
guesses to determine the letters in a randomly 
chosen word, serves to familiarize the player 


Listing 7-3: The Anagram Creator Program 


PRINTCHR$(147)TAB(53)"ANAGRAM CREATOR" 
REM SCRAMBLES WORDS FOR ENTERTAINMENT 


N=6:REM NUMBER OF WORDS IN DATA STATEMENT 


DIM M(N) ,W$(N) ,A(20) 
FOR I=l TO N 
M(1I)=I 

NEXT I 
FOR I=1 TO N-l 
R=(N+1~1)#RND(O) 
R=INT(R)4+I 

T=M(R) 

M(R)=M(I) 

M(I)=T 

NEXT I 

FOR I=1 TO N 

READ W$(M(1)) 

NEXT I 

FOR I=1 TO N 

Agen 

A=LEN(W$(I) ) 

FOR B=1 TO A 

A(B)=B 

NEXT B 

FOR B=1 TO N-1 
S=(A+1-B)*RND(O) 
S=INT(S)+B 
C=A(S):A(S)=A(B):A(B)=C 
NEXT B 

FOR B=l TO A 
A$S=A$+MID$(W$(1),A(B), 1) 
NEXT B 

PRINT A$ 

INPUT C$ 


IF C$=W$(1) THEN PRINT "RIGHT!":GOTO 330 


PRINT''WRONG, THE ANSWER WAS:";W$(1) 
NEXT I 

END 

DATA STATEMENTS ,CONTAIN ,WORDS , HERE 


with vocabulary terms. 

Word search puzzles ad infinitum may be com- 
puter generated, either from a word list or as a 
random matrix similar to the popular Boggle™ 
game. A program to determine the locations of all 
words in the puzzle could also be implemented. 
You could also have the computer assist in crea- 
tion of a crossword puzzle. Choose a topic and 
enter words; the computer will automatically fit 
the common letters together to form a crossword 
grid. Next, enter an obscure or humorous clue for 
each word. The completed crossword can be 


DATA COMPUTER, TELEVISION, GAME, INSTRUMENT ,WRITE, BASIC 


saved for later use or printed and sent to friends. 

e Word guessing games, similar to twenty ques- 
tions, can be computerized. In these games, the 
player asks the computer questions to determine 
what word has been randomly selected. Replies 
for the many possible questions a human could 
pose must be stored; thus there are difficult 
programming challenges. The dialogue with one 
such program went like this: 


(c=computer, h=human) 

h: Does it grow? 

c: To answer that question might be mis- 
leading. 

: Can I eat it? 

Only as food for thought. 

: Do computers have it? 

Strictly speaking, no. 

The word is “Knowledge.” 


ok 


A word game similar to the popular Mastermind™ 
game would involve the computer’s selecting a 
three-letter word from a large list. The player 
would guess by entering a three-letter word and 
would be told whether or not the computer's 
word contained any of the letters in the word the 
player guessed and whether or not those letters 
were in the correct position. The object is to 
guess the computer’s word in the least number of 
tries. 

e In the game of Confound, the computer outputs 
15 letters (consonants and vowels). The players 
must form the longest word possible using these 
letters. The computer serves to keep score and 
check to ensure that no letters were used im- 
properly, that is, used more often than they ap- 
pear in the list. 


Story Writer 


Using the combination of a random number 
generator, a list of words, and simple rules for 
English grammar, a microcomputer can compose 
original stories ad infinitum; the results are often 
amusing. Here are some story writing suggestions: 


e Use a standard story line in which blanks are left 
to be filled in with inputted words. The inputted 
words could consist of personalized information, 


or arbitrary nouns, adjectives, and adverbs, as 
done in the Mad Libs™ party games. For exam- 
ple, a story could begin 


Space, the (adjective) frontier. 

These are the voyages of the starship (noun) 
It’s five-year mission: 

To seek out new (moun) and new (noun). . . 


, 


The operator 1s requested to provide one adjec- 
tive and three nouns to fill in the four blanks 
above, but is unaware of the story line until later 
when these words are incorporated and the story 
is printed out. Here is a sample result. 

Space, the nauseating frontier. 

These are the voyages of the starship lemon 

Its five-year mission: 

To seek out new games andnewcomputers . . 


Also included in this category are “Me Books” 
for young children. The computer fills the blanks in 
a story with a child’s name, address, and other 
personalized information. The resultant per- 
sonalized story often increases a child’s interest in 
reading. 


e A much more difficult approach to story writing 
involves the random selection of words or 
phrases to compose a series of sentences that 
follow standard rules of grammar. A program 
written in 1960 (before high-level languages 
were in widespread use) called SAGA was de- 
signed to produce short scripts for movie west- 
erns. Here’s a sample of the output: 


Sheriff: 
The Sheriff is at the window 
Sheriff sees robber 
Robber sees Sheriff 
go to door 
walt 
open door 
Sheriff sees robber 
go through door 
robber sees Sheriff 
go to window 
Robber: 
take gun from holster with right hand 
alm 
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fire 
Sheriff nicked 
Sheriff: 
take gun from holster with right hand 
aim 
fire 
robber hit 
blow out barrel 
put gun down at door 
go to table 
pick up glass with right hand... 


Writing a program to accomplish the above is 
more complex than it would seem on first impres- 
sion; the program was considered quite an 
achievement in 1960. Random numbers were used 
to determine the sequence of events; the events 
were selected from a wide range of preprogrammed 
possibilities. The program had to guard against a 
character firing a gun without first withdrawing it 
from his holster and similar situations. Also, a 
routine was necessary to compose “sentences” 
using the rules of grammar (for example, “gun takes 
robber from holster with right hand” would not be 
allowed, but “robber takes gun from holster with 
right hand” would be allowed). The use of pro- 
grammed phrases instead of individual words to 
select from would simplify this task considerably. 
In like manner, a science fiction spoof or soap opera 
dialogue could be written. A professional software 
house sells a program to produce random, technical 
double-talk to “fill out business reports that are too 
Short.” A sample line produced by the program 
reads, “The product configuration requires consid- 
erable analysis and trade-off studies to arrive at the 
total system rational.” 


MAGIC 


Magic tricks performed by your computer 
would make an interesting demonstration for your 
guests. Here are some suggestions: 

Micro mentalist. The computer becomes a 
mind reader in this trick. The performer, who ts the 
computer operator, 1s given an item from the audi- 
ence. The performer enters a question such as, 
“What is the item given to me by the audience?” 
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After a brief delay, the computer displays the name 
of the item. 

The trick is based on a code programmed into 
the computer that allows the performer to indicate 
inconspicuously to the computer which of approxi- 
mately 20 items he has been given. The code 1s 
contained within the inputted sentence; different 
sentences stand for different objects. For example, 
“What do I have now?” could indicate a watch, and 
“What am I holding?” could indicate a match folder. 
The computer merely matches the inputted ques- 
tion to the item list stored in 1ts memory. 

Age determination. The performer hands a 
member of the audience a pocket calculator and 
tells him to enter his age and then subtract his 
favorite one-digit number. Next, the guest multi- 
plies this result by nine and adds his age to the 
product. The final result is called out and is inputted 
to the computer. The determination of the guest's 
age is accomplished by adding the first two digits in 
the result to the last digit (for example, if the result 
were 176, adding 17 and 6 gives you 23, the guest’s 
age). 

The break in the chain. This trick is per- 
formed with a complete set of dominoes (usually 28 
pieces). Beforehand, the performer removes one of 
the dominoes (it may not be a double) and inputs the 
two numbers on the domino to be stored in the 
computer. The guests are given the remaining set 
and are asked to complete a single domino chain as 
in regular play. Once completed, the numbers on 
the two ends of the chain are noted, and the per- 
former inputs a question such as, ‘“What are the two 
numbers?” The computer replies correctly by dis- 
playing the two previously stored numbers. The 
trick is automatic and will work with any domino 
chosen, excluding doubles. 


COMPUTER-INTELLIGENCE GAMES 


Programs can be written to make a computer 
“learn” from its mistakes, entering the realm of 
artificial intelligence. A checker-playing program 
that stores the results of all previous moves has 
been written. Although the time necessary to de- 
cide on a move increases as the game progresses, 
the computer’s moves are much better than they 


were at the beginning of the game. Here are some 
games that the computer can “learn” to play. 


e Nim as described earlier in this chapter, is a 
popular computer game in which a player may 
take 1, 2, or 3items from a pile of 20 in an attempt 
to force an opponent to take the last item. Al- 
though this game is completely solvable, a Nim 
program could be written as a demonstration of 
computer “learning.” 

e A BASIC game called Animal, in which the com- 
puter plays the game of twenty questions with a 
human, has been written. The computer asks 
such questions as “Does it swim?” to try to de- 
termine what animal the human is thinking of. If 
that animal is not in the computer’s file, the 
human is requested to provide information so that 
a file on the new animal can be created. Thus, the 
computer “learns.”’ Of course, it may be in- 
teresting to use a subject other than animals; for 
example, you could use places instead of animals 
to help young people learn geography. 

e A crude “mind reading” program based upon 
probability could be created. The human would 
be instructed to choose one of two words. Then 
the computer will output the word it “believes” 
was chosen. After a number of trials, the com- 
puter should be able to formulate a strategy for 
guessing which word will be chosen next, be- 
cause humans can never be random and tend to 
guess in patterns; theoretically, the computer 
should be able to achieve better than 50% cor- 
rect responses. 

Other applications of personal computers in 
the area of artificial intelligence include programs 
that can tutor humans to play complex games such 
as chess, in which moves can be analyzed and 
changed, and suggestions or tips given. 


PROGRAMS FOR YOUNG CHILDREN 


Programs that make liberal use of graphics and 
are designed to be foolproof may serve as educa- 
tional tools for young children. They can familiarize 
children with using a keyboard, cursors, and com- 
puter graphics, and can provide learning experi- 
ences. Suggestions include the following: 


e Matching Games: children can match letters, 
words, and shapes. 
e Drawing Machine: a joystick controller or arrow 
keys permit drawing on a video screen. A library 
of shapes including squares, triangles, and cir- 
cles can also be used to construct pictures. 
Face Maker: children can create their own funny 
face on a video screen by selecting eyes, ears, a 
nose, hair, and a mouth from a collection of pos- 
sibilities. 
Storybook: using the keyboard, children can 
write their own stories, which the computer then 
interprets and animates on the screen. Stories 
can involve stored images such as houses, trees, 
people, and cars, which may then be animated to 
illustrate a sentence such as “The girls walked 
from home to school.” 


THE COMPUTER AS BOARD DISPLAY 

DEVICE, BOOKKEEPER, AND GAME ADVISOR 
Certain games are designed in such a way that 

the computer cannot be programmed to be a formid- 

able opponent. You can use the computer with these 

games in other ways, including the following: 


e Board display and bookkeeping for complex 
board games such as Risk™, Stratego™, Go, 
Metagames, and Avalon-Hill games can be ac- 
complished with high-resolution graphics. In ad- 
dition to displaying the board, the computer could 
— generate random numbers to replace spinners, 

dice, cards 
—record each move for later review 
—compute the game status at the end of each 


turn 
—compute energy, arsenal, moves, positions, 


money and statistics for each player. 

e Advising and bookkeeping for such games as 
checkers and chess can be accomplished. The 
computer could store each move, advise against 
potential checks, skewers, and forks, alert the 
players to discoveries, and print a listing of the 
game, move by move, at the finish. Advising for 
gambling games such as blackjack could take the 
form of the creation of an odds table for the high 
cards remaining in the deck, the computation of 
whether to stay or hit, and the calculation of the 
safest amount to bet. 
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DRAWING AND KALEIDOSCOPE PROGRAMS 


Most picture drawing programs utilize the 
arrow (cursor positioning) keys on the video termi- 
nal keyboard to direct a cursor point that leaves a 
line. Several additions could be made to these pro- 
grams, including animation routines, special stan- 
dard designs that may be called to the screen, pro- 
visions for storing a design on cassette or floppy 
disk, and for using light pens and joysticks. The 
kaleidoscope effect refers to a computer algorithm 
used to alter a design in kaleidoscope fashion (that 
is, the design is multiply reflected as its mirror 
image) in real time. Fascinating “modern art” de- 
signs can be made with programs that use random 
numbers with the DRAW, LINE, CIRCLE, FULL, 
and PAINT commands found in some BASIC inter- 
preters. Random lines and circles of various sizes 
fill the screen, and each area defined by lines 1s 
filled in with various colors. 


SIMULATION AND ADVENTURE GAMES 


Simulations of real-world situations need not 
be outputted as complex numerical listings; they 
may be transformed into games suited for people 
young and old. Some of the many possibilities in- 
clude the following: 

Pool Table. A pool playing game displayed 
using video graphics could serve to teach the prin- 
ciples of elastic collisions and angular geometry. 

Motorcycle Jump. A simulation in which a 
motorcycle must leap a certain distance to land 
safely could illustrate projectile motion. The ramp 
angle and initial motorcycle velocity would be de- 
termined by the person playing the game. 

Projectile motion formulae are provided below 
for those with faint recollections of high school 
physics: 


1. Position relative to point of projection after time 
t 


8 a initial velocity 
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x =v tcos 6 


gt 


y =v,t sin 6 = 


2. Range, maximumheight and time of flight 
T= — sing 
g 


av", 


sin @ cos @ 


3. Necessary angle of projection for given range 
with given speed of projection 


, 8 eS 
sin 2a = —— Rg giving two possible 


Vv" 


angles a, and a, and q,. 


Navigation. A simulation in which the par- 
ticipant must find his way to an island, using a radio 
direction finder in his sailboat, could teach princi- 
ples of geometry as well as sailboat handling for 
example. 

Detective. The participant would assume the 
role of a detective in this simulation. A valuable 
gem has been stolen from a museum and five per- 
sons are suspected. The use of deductive reasoning 
is the only way the detective can solve this crime. 

MX Missile. In this grid search game, one 
player hides MX missiles among several possible 
silos and may shuffle missiles while the other 
player shoots at them trying to hit silos containing 
missiles. 

World Race. Using a combination of race and 
rally tactics, players compete to be the first to 
motor from England to New York and back to New 
York, navigating their way through Europe, Asia, 
the far east, and South America. Strategy plays a 
large part as players have to motor through towns 1n 
every country in order to pick up points. Out of the 
way towns score higher than those along main 


routes. The winner is the player who reaches New 
York in the least time and with the most points. 
Rabies in Europe, tropical rains in South America, 
drought in Africa, and so on deter everyone’s prog- 
ress. The game serves to teach geography. 

Wall Street. A stock market simulation, 
preferably multiplayer, would allow players to buy 
and sell stocks according to market conditions. A 
computer determines the outcome of each round 
and the price for each stock and serves as book- 
keeper. 

World Conflict. This multiplayer simulation 
would place each player as the head of a nation. 
Players must decide whether they should go to war, 
form cartels, or make concessions and com- 
promises. The computer could select the conflict- 
ing situations (for example, oil embargoes, assassi- 
nations, nuclear threats, Communist expansion). 

Decision. A simulation of corporate manage- 
ment and big business could place each player as a 
top level executive. Each executive has the author- 
ity to produce the product of his choice and sell the 
product at the best market price. Throughout the 
game, prices fluctuate according to the law of sup- 
ply and demand. 

Fire. The object of this simulation is to subdue 
a raging forest fire with chemicals, backfires, and 
other fire-fighting methods. The success of the 
player depends upon quick decisions concerning 
how to control a geometrically increasing fire. 

Atomic Fission. This simulation dem- 
onstrates geometric progressions by simulating a 
nuclear reaction in which each split atom releases 
enough energy to split two or more other atoms, 
and so on. 

Auction. Principles of bidding at an auction 
could be simulated in a one or more player game 
involving the auction of art. Players must be careful 
of forgeries. 

Adventure. The object of this simulation is 
survival in a desperate attempt to locate buried 
treasure on an island. How does one obtain fresh 
water on an island surrounded by salt water? 

Ethics. This simulation, involving the conflict 
between morals and greed, uses the computer as 
the judge of ethics. Conflicting situations in which 


players must decide the outcome are provided. Ifa 
preprogrammed decision does not match with a 
player’s, that player accumulates “morality deduc- 
tions.” The winner is the player with the most 
money and fewest deductions. 

Careers. This simulation game places the 
player in new occupations to enable him or her to 
experience decision making, conflicts, oppor- 
tunities, and financial stress from different view- 
points in a variety of careers. 

Artillery. This is a simulation in which a gun 
in a fixed emplacement must fire a projectile at such 
a velocity and angle that it will hit a target. The 
distance the projectile lands from the target could 
be displayed as the integer of the log to the base 2 of 
the absolute value of the distance; several other 
possibilities exist for teaching mathematical princi- 
ples. 

Grid Search Simulations. A search game, 
for example, one that pitted a destroyer against a 
submarine, could be programmed. The game would 
use a 10X10 grid that must be selectively searched 
by the ship or the submarine in its efforts to find and 
attack the other vessel. Similarly, a game played 
on the same grid could involve a spy searching for 
hidden documents with hidden enemy agents to 
watch for as well. 

Rat Race. A video graphics program that 
draws a maze and animates a mouse could be 
created. The programming involved in enabling the 
mouse to “learn” to solve the maze could dem- 
onstrate rudimentary artificial intelligence princi- 
ples. 

Computer. Based on a large scale computing 
system, the object of this simulation is to process 
two complete programs before your opponents can. 
Players who make the best decisions can avoid the 
jeopardies of power failures, restricted use of I/O 
channels, bugs, and priority interrupts. 

Laser Tank. The player and the opponent 
(the computer) each have a laser-firing tank and a 
base. The object is to be the first to destroy the 
opponent’s base while avoiding his fire. Obstacles 
litter the battlefield, and laser fire is destructive 
only at a limited range. 

Robotwar. The purpose of this simulation 1s 
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3 


O=No Move 
4 9=End the Game 


S 


Fig. 7-16. The numbers corresponding to the directions in the 
Robot |I game. 


to teach computer programming. Two opposing 
players are instructed to secretly design programs, 
written in a custom language, that would create and 
control robots designed to annihilate any other 
robots. The programs would be entered, and a video 


Listing 7-4: The Robotwar II Program 


160 PRINTCHR$(147)TAB(45)"'------- ROBOTWAR II 


170 PRINT 

199 REM SET UP THE GAME 
200 DIM A(10,20),E(21) ,F(21) 
210 G=0:Z7=1 

220 FOR B=1 TO 10 

230 FOR C=1 TO 20 

240 A(B,C)=0 

250 IF B<>l THEN 260 

251 A(B,C)=1 

260 IF B<>10 THEN 270 

261 A(B,C)=1 

270 IF C<>1 THEN 280 

271 A(B,C)=1 

280 IF C<>20 THEN 290 

281 A(B,C)=1 

290 NEXT C 

300 NEXT B 

310 FOR D=1 TO 21 

320 B=INT(RND(1)*8)+2 

330 C=INT(RND(1)*18)+2 
340 IF A(B,C)<>0 THEN 320 
350 A(B,C)=1 

360 IF D>=6 THEN 370 

361 A(B,C)=2 

370 IF D<>6 THEN 380 

S71 ACB eC )=0 

380 E(D)=B 

390 F(D)=C 

400 NEXT D 

499 GOSUB 2000:REM PRINT PATTERN 
500 FOR B=l TO 10 

510 FOR C=1 TO 20 

520 IF A(B,C)<>0 THEN 530 
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display of the combat field would be updated in 
real-time. The objective could be to hit the oppos- 
ing robot five times to win. 

Robot War II. The program in Listing 7-4, 
Robotwar II is a challenging game to play against 
your computer. In the game, you are represented 
by an *, while the computer controls annihilating 
robots represented by +. An electrified, lethal 
fence defines the playing field. 

The computer’s robots will destroy you if they 
come close. However, the robots will destroy 
themselves if they run into the fence. Your objec- 
tive is to evade the robots until all have been de- 
stroyed by the fence. To move in a desired direc- 
tion, use the chart in Fig. 7-16, which indicates the 
number to input. 


521 PRINT 2 

530 IF ACB,C)<>1 THEN 540 

531 PRINT "X"; 

540 IF A(B,C)<>2 THEN 550 

541 PRINT "+"; 

550 IF AC(B,C)<>3 THEN 560 

Sod PRINT es 

560 NEXT C 

570 PRINT 

580 NEXT B 

599 REM MAKE MOVE 

600 B=E(6) 

610 C=F(6) 

620 ACB,C)=0 

630) 2LNPUT. -¥ 

640 IF Y=0 THEN 800 

650 ON Y GOTO 660,660, 660,690,680, 680,680,690, 1400 
660 B=B-1 

670 GOTO 690 

680 B=B+l 

690 ON Y GOTO 700,800,720, 720,720,800, 700, /00 
700" C=G=i 

710 GOTO 800 

720 C=C+1 

799 REM CALCULATE THE RESULTS 
800 IF A(B,C)=1]1 THEN 1500 

810 IF A(B,C)=2 THEN 1600 

820 ACB,C)=3 

830 E(6)=B 

840 F(6)=C 

850 FOR D=1 TO 5 

860 IF ACECD),FCD))<>2 THEN 960 
870 ACECD) ,FCD) )=0 

880 IF E(D)>=B THEN 890 

881 E(D)=E(D)+1 

890 IF ECD)<=B THEN 900 

891 ECD)=E(D)-1 

900 IF F(D)>=C THEN 910 

901 F(D)=F(D)+1 

910 IF F(D)<=C THEN 920 

911 FCD)=FCD)-1 

920 IF ACECD),FC(D))=3 THEN 1600 
930 IF ACE(D),FCD))=0 THEN 940 
931 G=G+l 

940 IF A(CECD) ,F(D))<>0 THEN 950 
941 ACE(D),FCD) )=2 

950 IF G=5 THEN 1700 

960 NEXT D 

970 PRINT "MAP" 

980 INPUT Y$ 

990 IF Y$="Y" THEN 499 

995 GOTO 600 

1025 Z7=Z7+1 

1400 PRINT"SORRY TO SEE YOU QUIT" 
1401 Z9=279+1 

1410 GOTO 1710 

1500 PRINT" YOU TOUCHED THE FENCE" 
1501 Z29=Z941 
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1510 
1600 
1601 
1610 
1700 
1701 
1710 
1720 
1730 
1731 
1732 
1733 
1734 


GOTO 1710 
PRINT"YOU HAVE BEEN DESTROYED BY A ROBOT!" 
Z9=29+1 

GOTO 1710 

PRINT'**YOQU DESTROYED THE ENEMY**" 

Z78=Z8+1 

PRINT"DO YOU WANT TO PLAY AGAIN (Y/N)"'s 

INPUT Y$ 

IF Y$=e'"'y"" THEN 210 

Z,7=294+Z8 

PRINT'COMPUTER WON:";Z9;"" "| "THE HUMAN WON:":Z8 
PRINT"COMPUTER;S AVERAGE:': INT(100*Z9/Z7) "2" 
PRINT "THE HUMAN'S AVERAGE:"; INT(100*Z8/Z7) 3"%" 


1735 
1740 
15516) 
1760 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


PRINT 
PRINT"HOPE YOU DON'FEEL FENCED IN" 
PRINT"TRY AGAIN SOMETIME." 

END 

PRINTCHR$( 147) 

PRINT TAB(30)"2" 

PRINT TAB(28)"1";TAB(32)"3" 

PRINT TAB(26)"8"3TAB(34)"4" 

PRINT TAB(28)'"7";TAB(32)"5" 

PRINT TAB(30)"6" 

PRINT TAB(67)"0=NO MOVE" 

PRINT TAB(27)"9=QUIT" 
PRINTCHR$( 19) : RETURN 


VIDEO GAMES 


A personal computer with a memory-mapped 
video display and high-resolution graphics could 
emulate the popular video games. Although pro- 
grams written in BASIC do not execute as fast as 
the real video games do, programs written in as- 
sembly language do run as fast. Here are some 


ideas you might want to try: 
Maxwell’s Demon. Seven _ floating 


molecules ar trapped in one chamber of a two- 
chamber box. A gate connects the two compart- 
ments.The molecules are constantly bombarding 
each other and bouncing off walls; the object is to 
open and close the gate at the right time so that all 


molecules will be trapped in the other compartment. 


Hockey and Tennis type games. These 
computer games could be controlled with joysticks, 
simple potentiometers, or keyboard switches just 
as their video game counterparts are. 

Tanks. In a projectile-shooting battle be- 
tween two tanks, the computer could act as the 
opponent. Similarily, a battle could be designed for 
jet fighters, biplanes, or ships instead of tanks. 

Pinball. A moving set of paddles could replay 
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a “ball” to hit targets and score points. 

Lunar Lander. This game involves a lunar- 
landing module that is governed by rocket propul- 
sion, fuel supply, and gravity. It must land at a low 
velocity so that no damage is done and must land on 
a plateau, avoiding lunar mountains and craters. 
The lunar lander program could be made more com- 
plex by requiring that you take-off from the lunar 
surface, navigate over an obstacle of random size, 
and land again accurately. 

Football, Baseball, and Basketball. An 
animated display of players, ball positions, and the 
playing field could be used to display the action in 
these sports. 

Racetrack. The object of this game 1s to finish 
the race in the least time. Hazards include attaining 
too much speed to slow down before a curve, 011 
slicks, and other cars. Hazards cause you to lose 
time. 

Skydiver. The player in this game 1. -ist con- 
trol chute opening and jump time for a parachutist 
who must land at a precise point. A wind of ran- 
domly selected direction and velocity presents a 
challenge to overcome. 


Robot Bowl. The player controls a bowling 
robot 1n an attempt to knock down as many pins as 
possible. The time of release, angle of approach, 
and weight of the ball are selected by the player. 

Shooting Gallery. Several moving targets of 
different point values and a directional “gun” could 
comprise a video version of the popular shooting 
gallery. 

Golf. A golf game with a set of graphical holes 
(or design-your-own-hole provisions) would let the 
players choose the clubs they will use for each shot 
and the angle at which the ball will be hit. Hazards 
include sand traps, water, “dog-legs,” and strong 
winds. 


RECREATIONS INVOLVING THE COMPUTER ITSELF 


A hobby computer magazine once listed some 
suggestions on “busting your computer” to deter- 
mine the limitations of your BASIC (or other high- 
level language). Theresults may surprise you. Here 
are a few ideas: 


e Determine the maximum number of parentheses 
that can be used in one statement. (Don’t be 
surprised if over 100 are allowed!) 

e Determine the maximum dimension allowed for 
an array. 

e Determine the maximum number of nested 
FOR-NEXT loops allowed. 


Other challenges include writing a ‘“‘self- 
duplicating” program that is not simply composed of 
verbatim PRINT statements, yet prints a duplicate 
of itself. If you are ambitious, you might attempt to 
break the record for carrying out Pi to the most 
decimal places (500,000). 


COMPUTERS AND CHESS 


Chess is one of the most popular computer 
recreations for several reasons. First, it requires 
an advanced level of computer programming, de- 
scribed by some as “artificial intelligence,” that 
enables a computer to emulate human thought. 
Second, it may be difficult to find chess opponents 
at your level of ability. The computer, as your 
opponent, solves that problem by having adjustable 


skill levels, making it possible to find an opponent 
of your own strength. Third, many chess programs 
can serve as chess tutors by suggesting moves, 
demonstrating piece movements, allowing the 
rearrangement of boards, and even stepping you 
through a collection of games from masters-level 
tournaments. Many of today’s chess programs are 
rated in the middle 1200s or above and can serve as 
a formidable opponent for novice to intermediate 
level players. 

Chess playing programs are almost always 
written in assembly language for the purpose of 
speed; they may analyze from a few thousand to 
over one million possibilities before making a 
move. A large scale computer chess program is 
described below for those interested in the inner 
workings of the game. The discussion can, perhaps, 
provide added insights for your game and can assist 
those who are interested in writing their own chess 
programs. A warning, however: most credible 
chess programs have required thousands of man- 
hours in development time and are truly a pro- 
grammer’s ultimate challenge. 

The program described here is named OS- 
TRICH; it competed in the First World Computer 
Chess Tournament. The OSTRICH program 1s 
composed of three modules: BOOK, which pro- 
vides standard book opening moves for up to the 
first five moves, CHESS, which is the main pro- 
gram used during most of the game, and END 
GAME, which takes over in rook/king or queen and 
king/king end games. CHESS, the main module, is 
comprised of approximately 9000 instructions, 
which are divided into five subprograms: 


1. A subroutine for the control of input and output 
and for the control of the size of the search tree. 
The search tree refers to the branching search 
for all move possibilities that the computer 
performs before making each move. The size of 
the tree indicates the depth or number of 
moves ahead that will be considered for each 
move. 

2. A subprogram to generate all move pos- 
sibilities or search the tree. 

3. A subprogram to arrange each possible move 
ona hierarchy scale according to its plausibility 


189 


(each move is given a plausibility score). Fol- 
lowing this initial ordering, another set of 
routines is called upon to improve the order- 
ing. 

4. A subprogram to calculate a terminal score or 
to evaluate the chess board at each terminal or 
branching point in the tree. 

5. A subroutine to update all arrays, lists, and 
pointers used by the remainder of the program. 


The Reference Arrays Used by Chess 


1. The lists of the locations of each chess piece: 
an 8 x 8 array holds an identification number 
for each of the pieces on the board, in a corres- 
ponding memory location. The white pieces 
are identified as follows: King =6, Queen = 5, 
Rook = 4, Bishop = 3, Knight = 2,and Pawn =1. 
The black pieces are identified as the negative 
of the corresponding white piece number. The 
boards position array is updated after each 
move. 

2. The piece location arrays: two separate arrays 
are generated at the beginning of each tree 
search. The list contains the names and cor- 
responding locations of the white pieces; the 
other does the same for the black pieces. 

3. The possible moves list: a list of possible 
moves for ply 1 (ply refers to the depth 
searched), ply 2, and ply 3, corresponding to 
each initial move, is generated. Additionally, 
memory 1s reserved to indicate which moves 
will result in a capture. 

4. The control piece array: this array stores the 
squares that each piece “controls” as well as 
the pieces that control a particular square. 
Thus, it is possible to determine the power of 
each piece along with what pieces are incontrol 
of the specific square in question. 

o. The change array: all changes made at anode in 
the search tree are stored in this array when 
control advances to anew node. The purpose of 
the list 1s to expedite the restoring of positions. 

6.. The pinned pieces list: a listing of all pinned 
pleces 1S maintained in this array. 

7. The en prise pieces list: a separate list of en 


190 


prise pieces at each search node 1s maintained. 

8. The Alpha and Beta cut-offs lists: two lists, one 
of the last eight moves resulting in alpha refu- 
tations and the other of beta refutations, are 
maintained. 

9. The ply 3 plausibility list: CHESS maintains a 
list of the best ply 3 move for each possible ply 
2 opponent’s move for each ply 1 move investi- 
gated. 

10. The principal variations list: each principal 
variation originating in the tree search 1s 
stored in this list. 

11. The position records list: this listing of all 
moves since a recent capture or pawn move 1s 
used to determine whether a draw should be 
made because of repetition. 


Tree Size 


Tree size is automatically controlled by the 
program so that decisions will not exceed a pre- 
determined time limit. Conditions that warrant an 
extension of the tree size include potential checks, 
captures. Pawn promotions, Pawns on the seventh 
rank, and the presence of en prise pieces. 

The flowchart in Fig. 7-17 illustrates the pro- 
cessing that occurs each time a new node Is 
reached. The node is determined to be either “ter- 
minal” or “nonterminal.’”’ A terminal node can be 
declared by a subroutine known as the gamma al- 
gorithm, by the fact that the node 1s past the tree 
length or by the fact that the node 1s past the 
minimum ply, but the board has no special features. 
All other nodes are classified as nonterminal. 


Nonterminal Node Processing 


The One Move Generator subroutine is the 
first processing done at a nonterminal node. This 
subroutine determines whether one move 1s suffi- 
cient or all legal moves must be generated; if the 
first move could cause a refutation, the program 
continues; otherwise, the Move Generator deter- 
mines all legal moves. Following move generation, 
a plausibility score is assigned to each move, and 
moves are sorted according to decreasing plausi- 
bility. The list is then resorted by special routines. 


IS NEW 
NODE A 
TERMINAL 
NODE 


CAN IS IT 

MOVE AT TOP NECESSARY 

any elite we 
POSITION ee SEARCH 


A CONTINUE 
PROCESSING 


ON PRINCIPAL 

VARIATION AT SAME TREE 
PLY BE MADE IN 
THIS POSITION 


GENERATE ASSIGN EACH 
MOVE A 


GENERATE ALL LEGAL 
ONE MOVE MOVES-FORM PLAUSIBILITY 
MOVES LIST SCORE 


ORDER MOVES BY 

PLAUSIBILITY AND 

APPLY REORDERING 
ROUTINES 


Fig. 7-17. A flowchart for node processing. 
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Plausibility Scoring 


All possible moves are assigned a plausibility 


score that is based on the following parameters: 


1. Captures: the score given for each capture 1s 
2400 points plus the results of this formula: 


additional points=(point value of captures— 
plece point value of capturing piece)/10 


where the points for the chess pieces are Pawn 
= 600, Knight = Bishop = 1800, Rook = 3000, 
Queen = 5400, King = 300,000. 

. Castling: the point value for castling 1s 10, 000 
points. 

Randomizer: this routine adds a random 
number of points to each move such that no 
piece will have excessive moves on the moves 
list. Up to ten points may be added. 

. Advance: any move which retreats a Queen, 
Knight, or Bishop receives a penalty of twenty 
points. 

Pawn attack: any move which places a Queen, 
Rook, Bishop, or Knight where it can be cap- 
tured on the next move by a Pawn receives a 
penalty of 200 point. 

Pawn scoring: a Pawn move past the fourth 
rank is awarded 300 additional points, and a 
move past the sixth rank is given 1000 addi- 
tional points. A move of the King’s or Queen’s 
Pawn is awarded 21 additional points, and a 
move of the Bishop's Pawn 1s given 15 addi- 
tional points. 

Rook scoring: moves for Rooks past the sixth 
rank are given 200 additional points. Moves for 
Rooks on the first rank to another square on the 
first rank that has no Pawns on the second and 
third ranks is awarded 40 points. 

. Refutation moves: any move on either the 
alpha or beta refutation lists 1s given an addi- 
tional 300 points. 

. En prise moves: any move that defends an en 
prise plece 1s given a bonus of 300 points. 
Moves oft en prise pieces are awarded 300 
points if the move is to a safe square and are 
penalized 20 poinis if the move is an unsafe 
Square. 
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10. Attack moves: if a move will place a piece 
where it can attack more pieces than before the 
move, additional points are awarded according 
to the pieces which may be attacked (and other 
factors). 


Reordering the Moves List 


Following the plausibility score analysis, spe- 
cial reordering routines are used to generate a final 
listing of moves in the order of their advantages. 
The three reordering routines used by OSTRICH 
are as follows: 


1. Capture reordering: the plausibility analysis 
arbitrarily places capturing moves at the top of 
the moves list; however, a capture is usually 
not the best move in most positions. This 
routine generally places captures by non- 
Pawns on the opponent’s side behind the non- 
capturing moves next on the list. No capture Is 
moved to a point on the list where it will not be 
considered in the final analysis, however. 
Captures of pleces moved at the last ply are 
placed at the top of other captures, except at 
ply one, where this is done only under the 
condition that the following move will be a 
recapture. 

2. Special reordering: a move called “Second 
Best” is generated after each move; it 1s the 
second to the last move that the search 
evaluated as it searched the first ply move list. 
This move is matched with the same move on 
the moves list, if it is there. Any such move 1s 
placed on the top of the moves list, if it 1s legal. 

3. Midsearch reordering: a midsearch reorder 1s 
done to the ply one moves list when the third 
move at ply one is to be considered. A match 1s 
sought between the moves remaining on the 
ply one list, and the move at the third ply is 
retrieved from the present principal continua- 
tion. Ifa match is found, that move 1s placed at 
the top of the moves list; 1f no match 1s found, 
matches are sought between this move and the 
most recent refutations. 


Processing at Terminal Nodes 
A scoring routine is applied to each terminal 


node, once it has been determined to be a terminal 
node. The seventeen scoring functions are as fol- 
lows: 


10. 


Board material: credit 1s awarded for the 
number and types of pieces that will remain on 
the board. The values given to each piece are 
Pawn = 1, Bishop = Knight = 3, Rook = 5, 
Queen = 9 King = 300. 


. Material ratio: the material ratio routine 


scores favorably for trading pieces when you 
are ahead in material and penalizes for trading 
when you are behind: 100 points are awarded 
to the side that is ahead. 


. Castling: a King side castling is given 600 


points, while a Queen side castling is given 300 
points. 

Board control: points are awarded in the fol- 
lowing manner for control (ability to capture) of 
certain squares on the board: 12 points for each 
of the four center squares, 7 points for control 
of any square in the ring surrounding the four 
center squares, and 12 points for squares sur- 
rounding the opponent’s King. 


Tempo: 200 points are deducted from the score 
of either side for wasting time in one of the 
following ways: moving one piece twice in the 
opening, moving King or Rook prior to cast- 
ling, moving apiece to its last previous posi- 
tion, using more than one move to move a piece 
to a position 1t could have reached in one move. 
Opening Queen moves: moves of the Queen 
before the eighth move are penalized 400 
points. 

Blocking unadvanced Pawns: 470 points are 
deducted for moves that block unadvanced 
King or Queen Pawns. 


. Minor piece development: a penalty of 140 


points is given for each unmoved center Pawn, 
Bishop, or Knight. 


. Center Pawns: an additional 50 points are 


awarded for all Pawns on K4 or Q4; 70 points 
are awarded for a Pawn on K5 or Q5. 

Pawn structure: Isolated pawns are penalized 
400 points; doubled Pawns are penalized 20 


ll. 


12. 


13. 


14. 


15. 


16. 


17. 


The 


points; advancing Pawns are awarded 10 
points. 


Passed Pawns: passed Pawns on the seventh 
rank are worth 700 point, on the sixth 400 
points, on the fifth 340 points, on the fourth 40 
points, on the third 100 points, on the second 
40 points. If Pawns and Kings are the only 
pieces left, the point values are doubled. 
Kind defense: if there are more non-Pawn op- 
posing pieces in the King’s sector than de- 
fending pieces, a penalty of 75 points is as- 
sessed. 

Doubled Rooks, Bishop pairs: if the two rooks 
are on the same column, 150 points are 
awarded; if one side has two Bishops and the 
other side does not, 150 points are awarded. 
Trades: if the piece that moved at the last ply is 
under attack, the score 1s adjusted as follows: 
the score 1s reduced by the value of the at- 
tacked piece if the number of defenders 1s zero. 
Otherwise, a sequence of trades is performed 
on the square, and the score is changed based 
on the pieces exchanged. 

King vs Pawns: if, after move thirty, the King 
is within one square of an opposing Pawn, 200 
points are awarded. 

Knight position: any Knight on column 9 or 7 1s 
penalized 40 points. 

Attacks: ply one moves that place an opposing 
piece en prise are awarded 40 points. 


Gamma Algorithm 


The gamma algorithm was mentioned earlier 


during the discussion concerning how to determine 
whether a node is terminal or nonterminal. Al- 
though the algorithm is complex, the logic behind 
its decision-making is that “if the situation is be- 
coming progressively worse and better moves are 
available, classify this node as terminal.” 


Possibilities for Chess-Related Programs 


ip 


Chess end game program: of course, computer 
analysis becomes much simpler at the end of a 
chess game, when only a few pieces are left. 
The beginning programmer might wish to 
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write a chess program to play end games be- chess variations: 
tweena few selected pieces only. The program ¢ Marseille game—each player moves two 


would provide any initial set-up of pieces be- pleces in succession. 
fore the game. The strategy is shown in Fig. ¢ Legal game—white uses eight extra Pawns in- 
7-18. stead of a Queen. 

2. Chess variations: perhaps computers would be ¢ Marked Pawn—the first player to make acapture 
able to compete better in playing one of these wins this chess variation. 


IF BLACK KING 


| 1S NOTIN THE SAME ZONE WITH ROOK 


(SIN SAME 
ZONE WITH ROOK 


VERTICAL DISTANCE BETWEEN BLACK 
KING AND ROOK IS 


EQUAL TO ONE 


MORE THAN 
ARLE 
ONE SQUARE SOU 


THE DISTANCE BETWEEN 


KINGS IS ¢ 


GREATER THAN EQUAL TO TWO 
TWO SOUARES SOUARES 


an 


THE NUMBER OF HORIZONTAL 
SOUARES BETWEEN THE KINGS IS 


ODD 


WHITE KING MOVES EVEN NOT ANY 
ONE SQUARE TO- 

Our = sig pare WHITE KING ROOK MOVES 
ROOK MOVES ROOK MOVES ONE ROOK MOVES = MOVES ONE ONE SOUARE 
HORIZONTALLY SOUARE TOWARD ONE SOUARE SOAURE TOWARD TOWARD BLACK 
TO OPPOSITE BLACK KING HORIZONTAL BLACK KING KING 


SIDE OF BOARD 


CHESSBOARD 


HS—_ Se ee 
ZONE 


Fig. 7-18. A mechanical chess playing machine used the strategy illustrated in this chart to win a chess end game. The 
machine possessed a white King and Rook while the human opponent possessed only a King. 
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e Chancellor—the Knight and Rook have the same backtrack to the next previous column and 


combined move capabilities as each one has indi- place that Queen in a new conflict-free posi- 
vidually. tion, and so on. 
e Grasshopper—pieces may leap over others; 7. Five Queens: write a program to determine 
captures are as usual. how five Queens may be placed on the board in 
3. Advisor: a computer program updated with such a manner that every square is dominated 


each move you make could advise you of situa- 
tions you might miss. It would be interesting to 
compare the move you intend to make with the 
computer's suggestion. 

. Check: write a program determine whether 
black or white is in check given a particular 
board setup. 

. Take the Queen: write a program that can de- 
termine whether a black Rook can take the 
white Queen in no more than four moves if 
neither white pieces nor any other black pieces 
are allowed to move in between the successive 
moves of the black Rook. 

. Eight Queens: this chess recreation was de- 
vised in the seventeenth century. The chal- 
lenge is to discover how many ways it 1s possi- 
ble to place eight Queens on a chessboard in 
such a manner that no one Queen can be taken 
by another? There are 92 solutions to the 
problem, which may be found by a computer 
program using this strategy: place a Queen in 
the first column and row of the board and a 
second Queen in an uncapturable or 
conflict-free row of column 2, and so on untila 
solution is generated or a conflict arises. When 
a conflict arises, backtrack to the column im- 
mediately before and place the queen in a new 
conflict-free position, and then continue on. If 
no other conflict-free position exists, 


Listing 7-5. The Card Shuffling Routine 


100 REM CARD SHUFFLING ROUTINE 
110 DIM M(53) 

120 N=52:FOR I=] TO N 

130 M(1)=I:NEXT I 

140 FOR I=1 TO N-1 

150 R=(N+1-1)*RND(O) 

160 R=INT(R)41 

170 T=M(R) 

180 M(R)=M(1) 

190 M(T)=T 

200 NEXT I 


by at least one of the Queens. 

8. Twelve Knights or eight Bishops: write a pro- 
gram to place 12 Knights or 8 Bishops on the 
board in such a manner that all other squares 
are dominated. 

9. Knight’s tour: this program would find the 
path a Knight must take if he is placed on any 
square, and in 64 moves, he must land on each 
square once and only once. This problem may 
be solved by use of the heuristic strategy: For 
any square x on the chessboard, let Dp. (x) G=1, 
2,3...) be the number of squares accessible 
from x ini moves, not counting squares already 
visited. The knight always moves to a square x 
for which ) (x) exist, choose an x such that P, 
(x) 1s also as small as possible. 


ADDITIONAL GAME PROGRAMS 


Below are three listings that you can type into 
your computer and use. 


Card Shuffler 


You can incorporate the handy shuffling 
routine in Listing 7-5 into computer card games. 
The cards of the deck are numbered from 1 to 52 and 
are stored in the array M(x). A separate subroutine 
would convert these numbers into corresponding 
spot or face cards and suits. 
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William Tell Game solution is encoded so that typing in the program 


The program in Listing 7-6 presents a puzzle does not reveal the secret. 


that will challenge those of all ages. The program 
describes “William Tell,” and it’s your job to de- Personality Test 
termine what else characterizes William Tell. The The program in Listing 7-7 will be interesting 


Listing 7-6: The William Tell Program 


100 PRINTCHR$(147):TAB(55)"WILLIAM TELL" 

140 PRINT 

170 DIM A$(20) ,B$(20) 

190 PRINT "WILLIAM TELL IS A GAME OF LOGIC IN WHICH THE COMPUTER" 
200 PRINT "GIVES YOU EXAMPLES OF WHAT WILLIAM TELL IS, AND YOU MUST" 
210 PRINT"GUESS THE SECRET BEHIND THE WORDS THAT CHARACTERIZE" 

220 PRINT "WILLIAM TELL. THE COMPUTER WILL PROVIDE YOU WITH EXAMPLES" 
230 PRINT "AS A HINT. YOU MUST THEN GUESS WHAT WILLIAM TELL IS AND" 
240 PRINT "IS NOT BY TYPING IN NEW WORDS YOU THINK MAY CHARACTERIZE" 
250 PRINT "WILLIAM TEBL. IF YOU HAVEN'T FIGURED IT OUT AFTER 20" 
260 PRINT "TRIES, YOU CAN ASK FOR THE ANSWER OR TRY THE SAME SET" 
270 PRINT "AGAIN. HERE IS YOUR FIRST EXAMPLE AND CHANCE TO GUESS:" 
280 PRINT 

290 FOR X=1 TO 20 

300 READ A$(X),B$(X) 

310 NEXT 

330 REM THIS LIST OF EXAMPLES MAY BE EXPANDED 

340 DATA BRILLIANCE, GLORY, GLASSES, SPECTACLES, MELLOW, INTOXICATED 
350 DATA DULL, STUPID, COMMODITY, OBJECT, SHEEN, BRIGHT, UNDRESSED 

360 DATA NUDE,MISSION , OBJECTIVE, SPEECH , PROSE ,PASSIVE, INERT 

370 DATA SUGGESTION, ADVICE,SYMMETRICAL, REGULAR , JITTERY , NERVOUS 

380 DATA IMPRESSIVE,MAGNIFICENT , ERRONEOUS , FAULTY , FEEBLE , LAME 

390 DATA CALLOUS, INSENSITIVE, SOOTHING, SERENE , SHALLOW 

400 DATA SUPERFICIAL,NAMELESS , ANONYMOUS 

410 FOR Y=1 TO 20 

420 PRINT "WILLIAM TELL IS '":A$(Y);" BUT NOT ";B$(¥) 

430 INPUT"WILLIAM TELL IS...'3C$ 

440 GOSUB 730 

470 IF F=1 THEN 560 

480 INPUT"BUT, WILLIAM TELL IS NOT...":C$ 

490 GOSUB 730 

500 IF F=1 THEN PRINT "WILLIAM TELL IS "3C$;"1t1" 

510 GOSUB 790 

530 PRINT 

540 NEXT Y 

550 GOTO 640 

560 INPUT "BUT,WILLIAM TELL IS NOT";C$ 

570 GOSUB 730 

580 IF (F=1)AND(G=1) THEN PRINT “WHOOPS, I THOUGHT YOU GOT IT" 

585 IF (F=1)AND(G=1) THEN PRINT "LET'S TRY SOME MORE.. .":G=0:PRINT 
590 IF (F=0) AND (G=1) THEN 630 

600 IF (F=0) THEN PRINT:PRINT’BY GOLLY ,MAYBE YOU HAVE IT!" 

605 IF (F=0) THEN PRINT'LET'S TRY ONCE MORE...":PRINT:G=1 

610 IF F=1 THEN PRINT "WILLIAM TELL IS ":C$;"!!!!'":PRINT 

620 GOTO 540 

630 PRINT "RIGHT! !tr!" 

640 PRINT "WOULD YOU LIKE TO TRY AGAIN (A)" 

645 INPUT" OR HEAR THE ANSWER (H)"3A$ 
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650 IF A$="'H" THEN 670 

655 IF A$="A" THEN 370 

657 GOTO 640 

660 REM ENCODED ANSWER FOR WILLIAM TELL 

670 PRINT "THE SECRET IS:" 

680 A$="UGJJ?7K/RCJJ/GQ/?LW/UMPB/AMLR ?GLGLE/RUM//AMLQCASRGTC*/GBCLRGA? J/J 
690 FOR X=1 TO LEN(CA$) 

700 IF MID$(A$,X,1)="/" THEN PRINT " "; 

705 IF MIDS(A$,X,1)<>"'/" THEN PRINT CHR$(ASC(MID$(A$,X,1))+2); 
710 NEXT X 

720 END 

730 F=O:REM ANSWER EVALUATION 

750 FOR X=1 TO LEN(C$) 

760 IF MID$(C$,X,1)=MID$(C$,X+1,1) THEN F=1 

765 IF MID$(C$,X,1)<>MID$(C$,X+1,1) THEN NEXT X 

770 RETURN 

780 REM WRONG ANSWER CHOICES 

790 ON INTCRND(-TI)*54+1) GOTO 800,810,820,830, 840 

800 PRINT "NOPE,..GIVE IT ANOTHER TRY:":RETURN 

810 PRINT "SORRY, NOT EVEN CLOSE.":RETURN 

820 PRINT "THAT DOES NOT COMPUTE (IT'S WRONG" :RETURN 

830 PRINT "YOU'RE STILL COLD...TRY AGAIN:":RETURN 

840 PRINT'THAT ONE ALMOST BLEW MY CIRCUITS...HERE'S ANPOTHER HINT:'": RETURN 


Listing 7-7: The Personality Test Program 

10 PRINTCHR$(147)TAB(50)"PERSONALITY TEST": PRINT 

20 PRINT"THE FOLLOWING PERSONALITY TEST IS JUST" 

25 PRINT'FOR FUN--DON'T TAKE IT TOO SERIOUSLY. " 

30 PRINT"HOWEVER, IT MIGHT REVEAL SOME GENERAL" 

35 PRINT'CHARACTERISTICS!" 

40 PRINT 

50 PRINT" INSTRUCTIONS:": PRINT" THREE VERSES WILL BE PRINTED. FOLLOWING" 
60 PRINT"EACH VERSE WILL BE A LIST OF " 

65 PRINT" INTERPRETATIONS. INPUT THE CORRESPOND-"' 

70 PRINTING NUMBER FOR THE INTERPRETATION YOU" 

75 PRINT’ THINK IS THE BEST. " 

80 INPUT"PRESS RETURN WHEN READY";A$ 

90 PRINTCHR$(147):REM CLEAR SCREEN 

100 PRINT"A BOOK OF VERSES UNDERNEATH THE BOUGH," 

110 PRINT"A JUG OF WINE, A LOAF OF BREAD,AND THOU" 

120 PRINT'BESIDE ME SINGING IN THE WILDERNESS--" 

130 PRINT"OH, WILDERNESS WERE PARADISE ENOW!" 

140 PRINT 
150 PRINT"1) HAPPINESS OR CONTENTMENT CAN BE " 
155 PRINT" FOUND WITHOUT MUCH PLANNING" 

160 PRINT'2) HAPPINESS IS IN ACCEPTING AND ENJOY-" 
165 PRINT’ ING SIMPLE THINGS" 

170 PRINT"3) HAPPINESS IS ALWAYS PRESENT IF WE" 
175 PRINT’ TAKE THE TIME TO LOOK" 

180 PRINT’4) IF YOU SET YOUR MIND TO IT, HAPPI-" 
185 PRINT" NESS CAN BE FOUND" 

190 PRINT"’5) HAPPINESS IS WHERE WE FIND IT" 

200 INPUT Xl 

210 PRINT CHR$(147) 

220 PRINT'THERE IS A TIDE IN THE AFFAIRS OF MEN" 
230 PRINT"WHICH, TAKEN AT THE FLOOD, LEADS ON TO" 
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240 


560 
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PRINT" FORTUNE;"' 
PRINT" OMITTED, ALL THE VOYAGE OF THEIR LIFE" 
PRINT"IS BOUND IN SHALLOWS AND IN MISERIES." 
PRINT 

PRINT'"1) MAKE THE MOST OF YOUR CHANCE WHEN " 
PRINT’ - YOU-CET- IT” 

PRINT"2) IN MANY CASES OF FAILURE, PEOPLE " 
PRINT" WERE AFFECTED BY CIRCUMSTANCES OVER" 
PRINT" WHICH THEY HAD NO CONTROL." 

PRINT"3) ONE WHO PLANS WELL WILL SURVIVE WELL" 
PRINT" UNDER THE LAWS OF NATURE" 

PRINT'4) LIFE IS SUCH THAT IT PAYS TO WATCH" 
PRINT" WHAT YOU DO BEFORE YOU RUN INTO" 
PRINT" INTO TROUBLE" 

PRINT"S) ONE SHOULD BE ON THE WATCH FOR OP-" 
PRINT" PORTUNITY TO KNOCK, OTHERWISE HE " 
PRINT" WILL MISS OUT ON GOING PLACES." 

INPUT X2 

PRINTCHR$( 147) 

PRINT'NO MAN IS AN ISLAND, ENTIRE OF ITSELF." 
PRINT 

PRINT"1) EVERYONE SHOULD CONSIDER THE NEEDS" 
PRINT" AND WANTS OF OTHERS" 

PRINT"2) USE OTHER'S INFLUENCE TO HELP YOU" 
PRINT" PLAN YOUR LIFE" 

PRINT'3) ONE WHO ACTS WITHOUT REGARD FOR" 
PRINT" OTHERS DOES NOT REALIZE HE IS A 


PRINT" SOCIAL ANIMAL" 

PRINT'4) TO GET WHERE YOU WANT TO BE IN LIFE" 
PRINT" ‘YOU MUST REALIZE THE NEED FOR HELP ™ 
PRINT" = FROM OTHERS" 

PRINT'S) ALTHOUGH I AM THE CAPTAIN OF MY" 

PRINT" SOUL, I MUST MAKE MY WAY IN LIFE" 

PRINT'' AMONG MANY OTHER CAPTAINS" 

INPUT X3 

PRINTCHR$( 147) 

PRINT"THE TEST INDICATES THAT YOU POSESS THESE TRAITS:" 
IF Xl=l1 THEN PRINT" IRRESPONSIBLE":GOTO 520 

IF Xl=2 THEN PRINT "CONVENTIONAL AND MORALISTIC":GOTO 520 
IF X1=3 THEN PRINT "MORALISTIC":GOTO 520 

IF Xl=4 THEN PRINT'FORMAL":GOTO 520 
PRINT''PRACTICAL" 

IF X2=1 THEN PRINT''PRACTICAL AND LOGICAL":GOTO 530 
IF X2=2 THEN PRINT"MORALISTIC":GOTO 530 

IF X2=3 THEN PRINT''CONVENTIONAL":GOTO 530 

IF X2=4 THEN PRINT'HUMOROUS AND SENSIBLE":GOTO 530 
PRINT" EGO-CENTRIC" 

ITF X3=1 THEN PRINT’CONVENTIONAL":GOTO 540 

IF X3=2 THEN PRINT'PRACTICAL AND LOGICAL":GOTO 540 
IF X3=3 THEN PRINT"OBJECTIVE":GOTO 540 

IF X3=4 THEN PRINT" EGO-CENTRIC":GOTO 540 
PRINT'MORALISTIC" 

PRINT" IF THE SAME TRAIT IS LISTED TWICE THEN" 
PRINT'IT IS ALL THE" 

PRINT"MORE INDICATIVE OF YOU." 

END 


" 


to guests. A series of verses is printed, and the psychologist is near; computers have already been 
player is asked to provide an interpretation. Al- used to question patients and provide an overall 
though this program is based upon psychological psychological analysis on the basis of standard 
research, don’t take it too seriously. However, itis psychological tests. 

interesting to note that the day of the computer 
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Chapter 8 


Control and Peripheral Applications 


The potentials for computer control and monitoring 
of the home are endless; only a few of the possible 
applications have been put into practice with the 
incorporation of microprocessors in household 
appliances. Several industry demonstration homes 
have been built to exhibit microprocessor control of 
the home. The following suggestions have been 
included in these homes or have been suggested by 
leading industry forecasters and futurists: 


e Climate control is just one of the many functions 
provided by the home computer system. The rate 
of temperature change and humidity ts noted, and 
the air conditioner or heater 1s turned off before 
the house is at a preset level; the temperature 
will “coast” to the desired level. The system also 
times the thermostat. In winter it turns down the 
temperature at night, turns it up again in the 
morning, and then turns it back down while you 
go off to work; in the summer it controls the air 
conditioner in the same manner. To conserve 
energy, the hot water heater 1s also turned down 
during certain hours when hot water isn’t needed. 


A vocal input interface to the home computer 1s 
continuously active, waiting for a command by 
one of the occupants. All appliances and lights 
controlled by the system can be switched on and 
off by voice command or can be programmed to 
start and stop at selected times. 

An intelligent alarm system will turn off all elec- 
tricity and gas and call the fire department in case 
of fire. A burglar detection system calls the 
police if an intruder is detected ultrasonically or 
by other sensors. 

Interfaces to stereo, televisions, and telephones 
are also interesting. The telephone controller 
acts as a phone message recorder with additional 
features. If a message is taken, the unit can be 
instructed to call someone at another number and 
deliver the message. A telephone call to the 
machine itself can allow you to change the re- 
corded message, play back messages, or control 
any of the devices connected with the home com- 
puter. A telephone file of commonly used num- 
bers 1s stored in the computer. Additionally, you 
can dial numbers by simply calling them out vo- 
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cally; if a busy signal is encountered the com- 
puter continually redials the number until the line 
is free. 
The stereo interface transforms an ordinary 
stereo into a “jukebox” from which recordings 
may be seiected and played at the touch of a 
button. A special device can monitor radio broad- 
casts and record all music; commercials and 
news are not recorded (voice patterns can be 
distinguished from music). You can preprogram 
the volume level and the type of music you want 
to have recorded for special purposes such as 
musical interludes and background music for 
dinner. A given song can be played a selected 
number of times, or the computer may be pro- 
grammed to skip to the next song ona record or 
cassette. 

e The television interface will turn on the set at 
selected times or record shows on video tape; a 
directional antenna or satellite dish is automati- 
cally turned for the best reception. 

e Even the bar is automated. Drinks of your choice 
are mixed automatically (bottles of ingredients 
are connected by hoses to the special machine). 

e You can use a voice synthesizer to audibly awake 
you in the morning with “Good Morning Mr. T. 
It’s 8 A.M. ,” and then summarize your itinerary 
for the day. 

e An automatic system can release fresh food and 
water for pets left at home for a long period, can 
sense when the animal has not eaten the food, and 
can notify the veterinarian to check the home. 


Some other applications currently being used 
by hobbyists include the following: 


e Voice or sound synthesizers are incorporated 
into games to provide dialogue or sound effects. 

e Voice input computers are used for recording 
information called out by an operator. One hob- 
byist uses such a system to make simple calcula- 
tions in his home workshop while his hands are 
full. Although such systems are usually limited to 
a vocabulary of about thirty words, some hob- 
byists have managed to develop automatic 
“dictation-taking” typewriters for limited pur- 
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poses (a word capacity of 100 is considered 
maximum). 

A hobbyist has used his small computer to re- 
place over 7000 mechanical relays necessary to 
control a pipe organ in his home. Similarly, com- 
puters could be used to light the keys on an organ 
to help you learn to play a song. Although a 
commercial piano player has been developed to 
digitally record music played and play it back 
later, the cost is high. If you were to implement 
such a system with your computer, additional 
features could be added; speed, sustain, attack, 
and other features could all be varied. 

One hobbyist 1s using a microprocessor to create 
intelligent test equipment that can automatically 
perform a set of test routines on a given circuit. 
This is an interesting application for amateur 
radio operators. A calculating oscilloscope is able 
to compute exact items for rises, perform inte- 
grals, and differentials, compute peak areas, 
RMS values, and peak to peak distances, and do 
n-point averaging; all data can be stored. 

With the addition of silver contacts and a small 
amplifier, your computer could serve as a 
biofeedback monitor or lie detector. Galvanic 
skin resistance, temperature, or heartbeat could 
all be measured with the use of the proper in- 
struments. This information could be sent 
through a joystick port or other J/D port and 
analyzed or displayed by the computer. An article 
describing the construction and operation of a 
computer biofeedback monitor appeared in 80 
Microcomputing, October 1983, pp. 176-192. 


The capabilities of a computer allow sophisti- 
cated analysis and conversion of waveforms not 
obtainable with standard biofeedback equipment. 
An assembly language program could be written to 
convert alpha brain wave signals, which are in the 
range of 8-12 Hz, to audible sound by raising all the 
frequency components of the brain wave signal to 
the audible range while preserving the ratios be- 
tween frequencies. Such a program could be used 
for a variety of unique applications—for example 
for converting your voice froma very deep level toa 
“Mickey Mouse” level or for dealing with any situ- 


ation requiring the conversion of analogue signals. 
You can envision future digital music players that 
have the added capability of altering songs through 
the use of hardwired computer circuits. 


e A New Hampshire resident uses his home com- 
puter to control his wood stove; he reports a 10 to 
30 percent improvement in efficiency. 

e A digital/audio file in which a standard cassette 
interface is used to record digital information 
between songs (audio) could be used to index 
songs, prompt a vocal announcement by a voice 
synthesizer, or control volumes, speakers, 
times, or mixing. 

e Hobbyists have connected computers to exercise 
equipment, such as jogging pads or exercise 
bikes, to keep track of energy expended, speed, 
or time. These special input devices could also be 
used as controllers for special video games. 

e Special software and hardware configurations 
could permit two or more opposing players to use 
separate but interconnected computers in such 
a manner that they cannot see each other’s 
gamefield. Games of the type (multiplayer games) 
are gaining in popularity on computer networks. 


Chess fanatics who also happen to be gadget 
fanatics would take delight in a computer- 
interfaced chessboard capable of sensing the 
movement of pieces. A robotic arm, of course, 
would move pieces for the computer. 


e Personal computers can be used to generate ti- 
tles for home video or film movies that can 1n- 
volve animated color graphics. Titles for slide 
shows could also be made by photographing the 
screen. 


e Along similar lines, your computer could flash 
subliminal messages over television programs 
for behavior modification. These would last 1/30 
of a second and assail your subconscious with 
messages to help you control your weight, deal 
with stress, smoking, or alcoholism, or become 
motivated toward success. Messages such as “I 
exercise” and “I am successful” could be re- 
peated every minute. 


e Radio scanner buffs can interface their computer 


to ascanner via CompuScan™, a Bearcat product, 
allowing them to monitor up to 200 channels. The 
computer can display the frequency and the de- 
scription of the channel received on a video 
monitor. 

¢ Weather sensors such as electronic anemome- 
ters, thermometers and barometers can be in- 
terfaced with a computer to provide automatic 
weather monitoring. 


HOUSEHOLD CONTROL DEVICES 


The interfaces that allow a personal computer 
to help you out around the house are now commer- 
cially available from the firms listed below. For 
those witha hardware bent, schematics for a simple 
control latch system and A/D converter are in- 
cluded at the end of this chapter. 

The firms have been divided into two groups, 
depending upon the type of product they offer: 
those listed under “Personal-Computer Systems” 
offer products that are designed to work with one or 
more popular brands of personal computers; those 
listed under “Dedicated Systems” offer products 
that are made specifically for home control applica- 
tions but can be interfaced to computers by elec- 
tronic geniuses. 


Personal Computer Systems 


Circuit Science, 4 Townsend West, Nashua, 
NH 03063; (603) 880-4066. Circuit Science man- 
ufactures the CSI-1200, a controller interface that 
plugs into an RS-232 port. This system eliminates 
the BSR control box, but uses the BSR remote 
modules for each appliance controlled. 

Compu-Home Systems, 3333 East Florida 
Ave., Denver, CO 80210; (303) 777-6600. This 
firm manufactures the Tomorrowhouse system for 
the Apple II, which controls lights, appliances, 
solar-heating systems, sprinklers, hot tubs, indoor 
heat, and air-conditioning. It guards against bur- 
glars and reminds you of appointments and impor- 
tant dates. 

Cyberlynx Computer Products, 4828 
Sterling Dr., Boulder, CO 80301 (303) 444-7733. 
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Cyberlynx offers the Smarthome I system for con- 
nection to your Apple RS-232 port. It can be at- 
tached to an infrared detector to sense heat or 
movement ina room and cause lights and appliances 
to turn on and off to scare off an intruder. The 
system is also configured to control appliances for 
convenience and energy saving. 

HyperTek, P.O. Box 137, Route 22 East, 
Salem Industrial Park, Whitehouse, NJ 08888; 
(201) 874-4773. HyperTek manufactures the 
HomeBrain, a dedicated microprocessor for home 
control that uses sensor for heat, temperature, and 
motion. It uses Leviton wireless controllers and 
hardwired relays to integrate and schedule many 
home appliances. It can be connected with any per- 
sonal computer via an RS-232 port. 

Intelectron, 1275 A St., Hayward, CA 
94543: (415) 581-4490. This firm offers The Con- 
trol Center, asystem operating on the same princi- 
ple as the BSR system. 

Infield Software, 2422 Alvin St., Suite 100, 
Mountain View, CA 94043. Infield sells the Home 
Controller for connection to your Apple II Plus or 
Ile: it incorporates the BSR home control unit to 
run appliances, lights, sprinklers, spa, and so on. 


Dedicated Systems and Hardware 


Anova Electronics, Three Waters Park 
Drive, San Mateo, CA 94403; (415) 572-9686. 
Anova sells three dedicated microprocessor-based 
systems for home control. These systems can be 
used for control via telephone; and offer timed or 
instant remote control of appliances, and protection 
against fire, burglary, and utility failure. 

Audio Command Systems, 46 Merrick 
Road, Rockville Center, New York, NY 11570; 
(516) 766-2627. This firm offers remote control 
devices including low-voltage lighting-control 
systems, motorized drapery controllers, stereo 
components, and robots. 

BSR, Route 303, Blauvelt, NY 10913; (914) 
358-6060. This firm is the granddaddy of home 
control systems; their BSR System is used by a 
variety of other manufacturers as a component of 
their system. The BSR controller encodes a signal 
on the 60-cycle alternating current of the house’s 
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electrical system, eliminating the need for special 
wiring throughout the house. Each controlled 
appliance is plugged into a remote unit that may be 
turned on and off the the main control box of the 
BSR system. 

Leviton, 59-25 Little Neck Parkway, Little 
Neck, NY; 11362 (212) 229-4040. Leviton man- 
ufactures electronic control devices that allow 
computer control of lighting and appliances. 

Technicom International, 23 Old Kings 
Highway South, Darien, CT 06820; (202) 655- 
1299. This firm offers the Energy Control System 
(ECS), which can control up to eight devices in the 
home using BSR remote modules. 


The Use of Home Control Systems 


Users of these control systems report applica- 
tions aS diverse as energy conservation through 
keeping various rooms at desired temperatures for 
different times of day, sprinkling the lawn according 
to the amount of ground moisture, securing doors, 
signaling a baby’s movements inacrib, making and 
logging phone calls, detecting the seepage of water 
into a basement, opening and shutting drapes and 
Starting the roast by a phone call from the office. 

The control system can be arranged in such a 
manner that one computer controls the entire 
house, or a network of computers (one in each area 
of the house) can be interconnected via RS-232 
communications channels as shown in the diagram 
in Fig. 8-1. 

MUSIC 


A few music/voice synthesizers are now on 
the market as personal computer peripherals. Pos- 
sible uses for these include the following: 


e Use them with games for special sound effects. 
e Use them with a music composing program to 
generate and play original music continuously. 

e Use a music synthesizer as programmable 

drummer to accompany other instruments. Vari- 
ous drum sounds, speeds, and patterns including 
Latin, swing, jazz, waltz, and march, could be 
programmed. The metronome, cymbals, and 
other percussion devices could also be imitated. 
e Use a voice synthesizer to “sing” the vocals of a 
music piece, producing a unique composition. 
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Fig. 8-1. Five areas of a computer-controlled house. Separate microprocessor-based nodes communicate via an intelligent 
communications processor and an advanced data link controller. 


e Use the standardized MIDI (Musical Instrument 
Digital Interface) to connect a home computer to 
one or more electronic musical synthesizers to 
play or digitally record your compositions on a 
standard electronic keyboard. Comprehensive 
reformation on MIDI is available from: MIDI 
Users Group, P.O. Box 593, Los Altos, CA 
94022, phone (408) 253-4684. 


Additional applications in the area of music 
include the following: 


e If you have a plotter or a graphic printer or termi- 
nal, your musical compositions or those of the 
computer could be displayed in standard musical 
notation. 

e Loops of the proper speed and duration will gen- 

erate a specific audible frequency on an AM radio 

placed next to a CPU. A machine language or 

BASIC program to make use of this effect could 

produce sounds that resemble music. 

If music is digitized with the use of an A/D con- 

verter, it can be altered in various ways. Here are 

some examples: 


—selected voices or instruments could be 
removed/added after an analysis of fre- 
quency content. 


—The music could be played at any selected 
rate without a change in pitch, or could be 
played backwards or special effect. You 
could transform a given composition into 
another style of your choice. 

e Today's color organs, which produce a pulsating 
light in response to music, rely upon analog cir- 
cuits and often do not produce good results. A 
dedicated microprocessor could be used to con- 
trol the lights instead, resulting in a more favor- 
able response. 


AN EXTERNAL DEVICE 
CONTROLLER FOR YOUR COMPUTER 


The project described below will allow the 
electronic enthusiast to economically interface his 
or her computer with external devices. For those 
not electronically inclined, controlling interface 
circuit boards are commercially available for under 
$200. 

The controller described here will allow you to 
economically interface your computer with virtu- 
ally any external electrical device; up to sixteen 
devices (channels) can be controlled simultane- 
ously. 

This interface switches on and off a small 
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amount of current to control relays that in turn can 
control larger electrical loads (see Fig. 8-2). Prac- 
tically all eight-bit computers can drive the inter- 
face, and a four-bit microprocessor could drive a 
modified interface for specialized control purposes. 

The interface consists of three modules: a six- 
teen-channel demultiplexer, a sixteen-bit “mem- 
ory,” and sixteen single transistor driver amplifiers 
(see Fig. 8-3); the construction cost should not 
exceed $30. The interface is designed to be con- 
nected directly with a parallel output port. 

The four low-order bits of data coming from 
the parallel output port are inputted to the demul- 
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tiplexer. The demultiplexer selects the appropriate 
output pin and pulls it low (for example, if the four 
bits are 0000, channel zero will be selected and pin 
one pulled low). Since only sixteen individual sig- 
nals are possible with four bits, sixteen is the 
maximum number of channels that can be selected. 
Each output signal switches the state of one of the 
sixteen flip-flop chips. Thus, the flip-flops act as a 
sixteen-bit memory to maintain the status of each 
channel continuously, Signals sent to one flip-flop 
will alternatively toggle the corresponding channel 
on and off. The fifth bit of the data byte is first 
buffered and then connected to the reset pin of each 
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Fig. 8-2. Diagram of output devices that can be selected to match the controlled load. 
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Fig. 8-3. A schematic diagram of the control latch system. 


flip-flop. Thus, all channels may be reset (turned 
off) simultaneously through the use of the fifth bit. 
The software must output the signal corre- 
sponding to the correct channel to control devices 
connected to the interface. However, achannel can- 
not be switched on and off continuously by selecting 
that channel over and over again. This restriction 1s 
due to the fact that the flip-flops only switch on 
rising edges from the demultiplexer, which occur 
only if the multiplexer has been changed to select a 
different channel. Therefore, to switch a given 
flip-flop on and then off, follow these steps: 1) 
select the channel with the proper data byte, 2) 


ALL FLIP FLOPS ARE 7474 


OUTPUTS 


select any other channel (for example an unused 
channel), 3) wait for the first channel to toggle on, 
and 4) reselect the first channel to turn it off. 


AN A/D CONVERTER FOR YOUR COMPUTER 


The A/D (analog to digital) converter has 
many applications for use with personal computers. 
It will allow you to interface joysticks or poten- 
tiometers with computers for use during editing, 
video drawing, or game playing. Automation of test 
equipment and control over robots or machines are 
among the many other possible applications. 

The eight-channel interface described here is 
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designed for use in converting signals in the range 4, Set the accumulator equal to the pointer 


of about 0.1 Hz to 100 Hz, which is sufficient for the Oo. select the next channel and enable the 

applications listed below (see Fig. 8-4). The sample and hold process 

“sample-and-hold” principle is used in the design to 6. Turn off the sample and hold strobe 

store an analog signal as a capacitor charge until it 1s 7. Turn off the selected sample and hold 

processed. The two power supplies necessary 8. Decrement the value of the pointer 

should fall between 4.5 to 6.5V and 12 to 15V 9. If the pointer is greater than or equal to 

respectively. zero, loop back to step 2; otherwise return 
An assembly language software description 1s to the main program. 

provided below; you should supply the op codes for 

your microprocessor. As you can see, the program sequentially ad- 
1. Initialize the pointer dresses a channel, outputs the voltage that is to be 
2. Load the next byte for output held, disables that channel, repeats the process for 
3. Output the byte the other channels, and then returns to the main 
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Fig. 8-4. A schematic diagram of the A/D converter. 
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program. You could arrange the program to act as an 
interrupt handler signaled by a clock strobe on an 
interrupt line. 

A D/A (digital to analog) converter can also be 
built or purchased and used to produce speech, 
music, or sound effects or to control the speed of a 
motor, among many other applications. 


PERSONAL ROBOTS 


Today the development of personal robotics 1s 
at the stage personal computers development was 
in the early 1970s. It’s a young field with great 
potential and much remaining to be explored. Per- 
sonal robotics 1s discussed here as a control appli- 
cation for your personal computer, considering that 
many robots available on the market rely upon ex- 
ternal microcomputers for partial or complete con- 
trol over their actions. 

The state of the art personal robot can loco- 
mote, talk, and perhaps perform crude manipulator 
functions or chores such as vacuuming the house or 
automatically finding the battery recharge unit 
when necessary. Capabilities such as setting the 
table like a maid, fetching a beer, or mowing the 
lawn like a loyal son are currently out of the ques- 
tion. As of this date, none of the available products 
even come close to replacing appliances or off- 
spring. In fact, most of the robots for sale do not 
have functional arms, and few are self-contained; 
most communicate with their host computer by 
means of a cord or via radio transmissions. At 
present, personal robots serve little purpose other 
than entertainment and as an educational tool. 
However, advances are being made to allow more 


practical use of personal robots, and you could be 
part of that frontier! 
Manufacturers of Personal Robots include: 


Androbot, Inc. 
101 E. Daggett Dr. 
San Jose, CA 95134 


Heath Co. 
Benton Harbor, MI 49022 


Microbot, Inc. 
453-H Ravendale Dr. 
Mountain View, CA 94043 


RB Robot Corp. 
14618 W. 6th Ave., Suite 201 
Golden, CO 80401 


Robotics International Corp. 
2335 E. High 
Jackson, MI 49203 


Sandhu Machine Design, Inc. 
308 S. State St. 
Champaign, IL 61820 


Technical Micro Systems, Inc. 
366 Cloverdale 

Box 7227 

Ann Arbor, MI 48107 


Terrapin, Inc. 


380 Green St. 
Cambridge, MA 02139 
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Chapter 9 


Artificial Intelligence, the Future 
Personal Computer, and Networking 


In his book Future Shock, Alvin Toffler describes a 
future home computer system named OLIVER, the 
primary purpose of which is to help the owner deal 
with decision overload. 

“In its simplest form, OLIVER would merely 
be a personal computer programmed to provide the 
individual with information and to make minor dec1- 
sions for him. At this level, it cculd store informa- 
tion about his friends’ preferences for Manhattans 
Or martinis, and data about traffic routes, the 
weather, stock prices, and so on. The device could 
be set to remind him of his wife’s birthday or to 
order flowers automatically. It could renew his 
magazine subscriptions, pay the rent on time, order 
razor blades and the like. As computerized infor- 
mation systems expand, they would tap into a 
worldwide pool of data stored in libraries, corpo- 
rate files, hospitals, retail stores, banks, govern- 
ment agencies, and universities. OLIVER would 
thus become a kind of universal question answerer 
for him. However, some computer scientists see 
much beyond this. It is theoretically possible to 
construct an OLIVER that would analyze the con- 


tent of an owner’s words, scrutinize his choices, 
deduce his value system, update its own program to 
reflect changes in his values, and ultimately handle 
larger and larger decisions for him.” 


FUTURISTIC APPLICATIONS 
THAT ARE FEASIBLE NOW 


Although many of these applications will prob- 
ably not be feasible within the coming decade, some 
ideas being put into practice include the following: 

Medical monitoring. A specially designed 
microcomputer could be programmed to make 
checks of your bodily functions. Information such as 
nutritional and caloric intake, pulse rate, blood 
pressure, and weight loss or gain could be entered 
into a program especially tailored for your 
metabolism. Specific conditions that warrant a visit 
to the doctor could be computed and outputted. 

With a telephone modem, the computer could 
transmit such information to a larger data bank for 
processing. Additionally, answers to common 
medical questions could be provided by the data 
bank. 
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Information research. The facilities to tap 
computerized information banks (for example, the 
information banks of the New York Times and the 
World Trade Center) are already available via tele- 
phone modems connected to such service com- 
panies as The Source™. Such services are espe- 
cially useful to businessmen, authors, and 
educators who need to locate specialized informa- 
tion. In addition, a home computer interfaced to a 
standard modem could tap the Library of Con- 
gress’s computerized card catalog as well as 
numerous other data banks. 

Personalized news service. A home com- 
puter on-line witha news service could select news 
items by category and store them for review later 
by the home owner. The United Press International 
wire service provides all major national and world 
news; news items are coded by category, and thus, 
a computer on-line could select items of interest. 

Travel information. A travel service data 
bank, filled with information regarding flights, 
schedules, prices, availability, reservations, and so 
on could supply all the information necessary for 
you to plan a vacation or an outing, viaa telephone 
modem. 

Stock market quotes. A continual Dow 
Jones listing service could supply stock market 
quotes to the home computer via a telephone 
modem. Such a service would be a boon to those 
attempting stock market analyses with their com- 
puter. 

Educational programs. Quality, compre- 
hensive educational programs are being developed 
for the growing home computer video tape player 
can be used in conjunction with the computer to 
provide television images that cannot be provided 
with conventional computer graphics. In addition, 
the computer can randomly access video images 
from a video disk to provide interactive education. 


Business extensions. Computer program- 
mers, professional investors, and other profession- 
als who do most of their work with a computer 
system are beginning to install home terminals; 
soon traveling to an office will be unnecessary. 


Computer networks. Numerous amateur 
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and professional computer networks have been 
formed for the exchange of programs, ideas, tips, 
and other information. Commercially available 
“bulletin board” software allows anyone with a 
computer and auto-answer modem to form their 
own network. Consult Appendix A for a listing of 
computer bulletin board systems available in your 
area. 

Intelligent devices. A home computer in- 
terfaced with household devices could create a 
complete home management system. Climate con- 
trol, solar energy system control, television set 
timing, cooking device control, and so on could all 
be done simultaneously by a properly equipped 
home computer. With falling costs for microcom- 
puters, such control applications are becoming 
economical. 

Other possibilities include a complete, 
computer-controlled diagnostic system for your 
automobile. 

Artificial intelligence? A popularly quoted 
assessment of computers and people goes like this: 
“Computers are fast, accurate, and stupid. People 
are slow, inaccurate, and brilliant. Together they 
can perform incredible feats beyond the imagina- 
tion.” With the advent of artificial intelligence, 
computers have begun to enter the “brilliant”’ cat- 
egory. So-called expert systems are capable of 
making informed decisions on the basis of hundreds 
of thousands of rules and relationships much as a 
human expert can. Although most artificial intelli- 
gence programs are intended for large computer 
systems, some of this technology will be available 
in the near future for the personal computer. 
Numerous applications in medicine, business, sci- 
ence, and education are foreseen. For further 1n- 
formation and experimental programs for use on 
your personal computer, see Artificial Intelligence, 
by Neil Graham, TAB Books, Inc., Blue Ridge 
Summit, PA 17214. 


FUTURISTIC APPLICATIONS 
THAT ARE NOT YET FEASIBLE 


However, not all applications suggested by the 
media are practical, and in some cases may not be 
possible to accomplish with current technology. 


The examples of impractical applications described 
below will serve to define the limits of personal 
computer control/peripheral applications. 

Personal security system. By determining 
heights, weights, and diameters of all who come to 
your doorstep, your computer will be able to recog- 
nize whether or not that person is an acquaintance 
(based on previously stored information). 

The problems associated with this application 
are obvious; the equipment to determine heights 
and diameters of a person in motion would be dif- 
ficult to interface with the computer, and no pur- 
pose 1s given for spending hundreds of dollars to 
accomplish such a feat. 

Robot maid. Some authors have claimed that 
domestic androids will be available within a few 
years to do such chores as vacuuming a home, 
walking the dog, washing dishes, preparing food, 
and so on and will have the capability of carrying on 
a natural conversation with the owner. 

Although several robots are commercially 
available for home use, the application of these as 
useful household servants has not passed the point 
of tedious control of their every movement by hu- 
mans. Some robots are available with sensors that 
enable them to avoid collisions with people and 
objects such as furniture. These robots can even 
vacuum a floor ina semirandom fashion, but further 
applications are limited by inadequate mechanics 
and the problem computers have in recognizing 
“universals.”’ Dennis Gabor described this problem 
in his book Innovations. 

“One can say that it is incomparably easier to 
design a computer for solving a wave equation be- 
yond the reach of the best analyst than to design one 
that will pick up and empty ashtrays, because 
ashtrays come in so many shapes.” 

Presumably, the use of the television camera 
is the only way to give a robot “sight.” Computer 
analysis of the thousands of individual pixels, or 
dots, in a television picture to determine what ob- 
jects are in the picture is not yet practical for per- 
sonal computers. 

The problems of speech input are also numer- 
ous. A very large memory capacity and a high pro- 
cessing speed are necessary for “understanding” 


anything even approaching normal conversation. 
However, hobbyists show considerable inter- 
est 1n robotics, and over the next few years they 
will produce increasingly sophisticated robots. 
Controlling an automobile. The problems 
associated with the computerized control (driving) 
of an automobile are much the same as those as- 
sociated with the control of domestic androids. 


NETWORKING 


The world is your neighbor via your micro- 
computer. Within the past few years there has 
been a tremendous growth in networking, the con- 
nection of computers to other computers through 
the use of modems and phone lines. Many experts 
predict that networking will be one of the primary 
uses of personal computers in the future. 

What services are available from networks, 
now and in the near future? One important applica- 
tion will be the creation of an electronic banking 
system. With this system, you will be able to make 
and receive payments via your home computer ter- 
minal, which would be the main computer system in 
your bank or supermarket. The so-called cashless 
society will become a reality. 

Another important aspect of networking is that 
you will have access to vast amounts of information 
instantly —everything from stock market quota- 
tions to major newswires to journal and en- 
cyclopedia articles. You will also be able to ex- 
change information, programs, and other forms of 
electronic mail with one or all of the thousands of 
users on a typical network. The applications of 
networking services for personal computer users 1S 
in its embryonic stage, and many new applications 
are forthcoming. 


Modems 


Modems are electronic devices that allow 
communication between your computer and 
another computer. They translate the electronic 
signals from a computer into audio tones that may 
be sent through an ordinary phone line and translate 
the incoming audio signals into digital signals. The 
cost for a modem ranges from $50 to over $600 
depending upon its capabilities, but most personal 
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computer users can find a modem to suit their needs 
for under $200. 

A dtrect-connect modem patches into your 
phone line directly and is the simplest to use. An 
acoustic-coupled modem which cradles an ordinary 
telephone handset, 1s often less reliable, but it has 
the advantage of being usable at public phones. If 
you're willing to spend extra, a direct-connect 
modem can be equipped with a feature that will 
answer the telephone automatically and can dial 
numbers stored in the computer and then initiate 
data transmission; these features are called auto- 
answer and auto-dial. 

The other consideration in buying a modem is 
the speed at which it can send and receive data. The 
normal telephone line is capable of sending up to 
200 bits of information per second, or 1200 baud. 
300 baud is most commonly used by computer hob- 
byists. 


Terminal Programs 


As a final requirement, you must write or 
purchase software to communicate with the modem 


and the outside world; the required software is 
commonly called a terminal or communications pro- 
gram. Modems are often sold with these communi- 
cation programs as a package designed for your 
brand of personal computer. This software will 
allow you to send messages or programs to the main 
network computer and display or store incoming 
data. Again, a wide price range exists, depending 
upon the capabilities you need; these factors should 
be reviewed with your salesman before purchase. 


Available Networks 


There are two principle networks of broad 
interest—CompuServe and The Source. Both of 
these services offer an extensive variety of infor- 
mation sources, which are outlined below: 


COMPUSERVE INFORMATION 
SERVICE SUBJECT INDEX 


CompuServe 

9000 Arlington Centre Blvd. 
P.O. Box 20212 

Columbus, Ohio 43220 


AAMSI| Medical Forum 
AIO calculations 
AMEX prices (MQUOTE) 
ASCMD SIG 

ASI Monitor 

AVSIG. 

Acedemic American Ency 
Access 

Access phone numbers 
Adult education 
Adventure game 
Adverticers, TODAY 
Advertising: 

For sale 

Notices 

TODAY Magazine 
Want ads 

Advertising, classified 
St Louis Post-Dispatch 
Advice: 

Aunt Nettie 

African weather 
Agribusiness 
Agricultural news 

Air travel: 

Firstworid Travel Club 
Oficial Airline Guide 
Pan Am 

Travel F ax 

Air travel delays 
Aircraft 

Alrline guide 

Alrport delay guide 
Amateur Radio 
Analogies test 
Annual reporte 
Apple, programe for 
Apple User's Group 
Appliances for sale 
Arcade (SIG) 

Art Gallery 

Articles, computer 
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Asian weather 

Assoc. Press Access 
Aseoc. Viewdata Wire 
Astrology Gama 
Astronautics 

Atari Forum 

Athletic equipment 
Athletic's Outfitter 
Atlas, shopping service 
Attorneys 

Author's (SIG) 

Auto Information: 

Govt publications 
Investors Diversified 
Popular Science 
AutoNet 

Autos, buying 

AutoNe! 

St Louis Post-O:spatcn 
Aviation. 

AS! Monitor 

EMI Fignt Pianning 
NSW Aviation Weathe’ 
Oficial Airtine Gude 
Peax Delay Gude 
Aviation Rules & Reg 
Aviation Safety ins 
Aviation (SIG) 

Avistion weather 
Bacchus Data Services 
Banking, electronic 
Banks 

Centra’ Trade Bann 

First Tennessee Ban« 
Muntingtor Nationa Bans 
Snawmut Bans of Bostor 
Banshi game 

Beeeball (AP wire) 
Basic CompuServe 
Beef! prices 

Belmont Golf Associstion 
Belmonts golf (SIG) 


Billing, reviewing 
Biorhythme 
Bieckiack game 
Bitea language 

Book, ordering: 

Fitth Avenue Shopper 
Howard Sams Books 
Book, reviews: 
AAMSI, medical journals 
Rainbo's Reviews 
Boston, Shawmut Bank 
Bridge game 
Brokerage 
Budgeting, home: 
CompuServe 

Gov't publication 
Bulletin Board 
Business, farming 
Business Information Wire 
Business news. 

AP Viewdata Wire 
Business Wire 
Canadian, US Int! 
CompuServe 
Middlesex Daily 

St Louis Post-Dispatch 
Washington Post 

CB Interest Group 
CB Radio simulation: 
Access to 

Instructions 
Introduction 

CB Society 

CEMSIG 

CP/M user's group 
Cameras for sele 
Cenedlan: 

Business news 
Currency exchange 
Stocks 

Canning, home 

Car care 


Cars, comparison 
Cattle prices 

Central Trade Bank 
Changing paseword 
Changing terminal type 
Charges, monthly 
Checking, banking 
Child care 

Children, education 
Children's games 
Cinema news 

Clarke School for Deaf 
Classified Ads 

St Louis Post-Dispatch 
Clothing, fashion 
Clothing, sport 

Cocoa news 

Coffee news 

College cost program 
Color computer (SIG) 
Color graphics 
Columbus area. 

Banks 

Chamber of Commerce 
Education 

SIG 

Command level 
Commentaries. 
Investment 

Video 

Commodities calender 
Commodities tuture 
Commodities glossary 


Commodity News Service. 


Agricultural news 
Commodity prices 
Economic news 
Fucures industry news 
Futures market prices 
Generai news 

Metals news 

Weathers 


Commodore newsletter 
Commodore VIC (SIG) 
Comm. Industry Forum 
CompuServe command 
Comp-U-Stora 
Computer, books 
Computer club news: 
Computers & Electronics 
The Micro Advisor 
Computer Magazine Index 
Computers & Electronics 
Concentration game 
Consumer items for sale 
Consumer news: 
Software 

Continuing education 
Cooking (SIG) 
Corporate news release 
Copper futures prices 
Copper news 

Cotton futures prices 
Cotton news 

Court cases, alrcraft 
Cross Assembiers 
Cruise tine 

Current rates 

Database, how to use 
Database searches 
dataFamiliae 

Decwars game 
Decwars (SIG) 
DEFALTS, setting 
Department of State 
Disk area 

Document delivery 
Document retrieval 
Documentation ordering 
Dress 

Drugs 

Drugs, medicine 

EMI Flight Plans 
Earnings torecasts 


Economic news 
Editorials: 
Washington Post 
Education: 

Academic Encyclopedia 
Clarke Schoo! for Deaf 
The Coilege Board 
The Multiple Choice 
Education, family 
Educational games: 
Super Brain Challenge 
Witty Write-Ins 
Educator's (SIG) 
Electronic banking 
Electronic Bounce Back. 
Electronic Heath Catalog 
Electronic mall! 
Electronic shopping 
Eliza program 

EMAIL 

Emergencies, auto 
Emergencies, health 
Employee benefits 
Encyclopedia 

Energy conservation: 
Govt publication 
Popular Science 
Energy news 
Entertainment: 

AP Viewdala Wire 
CompuServe 
Hollywood Hotiine 
Environmental Forum 
Equipment, mining 
European weather 
Executive, termina! 
Expert, music 

FAA reports 

FAA rule changes 
FOI Newsline 

Facts, general 

Family budget 

Family tite 

Family Matters Forum 
Fantasy game 
Farming 

Fashions 

Federal gov't news: 
Associated Press News 
Washington Post 
Federal publications 
Fedwatch newsletter 
Feedback, CompuServe 
Fifth Avenue Shopper 
FILGE Instructions 
Finance 

Financial advice 
Financial ald, college 
Financial forecasts 
Financial Information 
Financial insurance 
Financial news (AP) 
Financial news, micros 
Financial planning 
Financial services 
Fire Fighters’ (SIG) 
Fire prevention 
Fireplaces, firewood 
First Aid 

First Tennessee Bank 
Firstworid Travel Club 
Fitness 

Flight operations 
Flight plans 

Flowers, ordering 
Focal 

Food & Drug Admin 
Food Buyline (SIG) 
Food information: 
FDA 

Food storage 

For fitness 

Freezing 

Menus 

Football (AP wire) 
Football game 

For Sale: 

Bulletin Board 
Clothing, sport 
Consumer goods 
Fortran (XF4) 


Funds Management 
Fur Trader game 
Futures Industry news 
Futures prices 
Games, computer: 
Adventure 

Astrology 
Backgammon 
Bansn: 

Biorhythms 
Blackjack 

Bridge 

Chess 

Civil War 
Concentration 
Decwars 

Dice 

Eliza 

Fantasy 

Fastermind 

Football 

Fur Trader 

Goit 

Gomoku 

Hammurabi 
Hangman 

Kesmai 

Lunar Lander 

Magic Cube solution 
Maze 

Megawars 
Mugwump 

New Adventure 
Othelio 

Real-Time Star Trek 
Roulette 

Scott Adams 
Scrambie 

Space War 

Star Trek 

Trivia test 

Wumpus 

Games (SIG) 
Gandolt's Reports 
Gardening 
Gasoline, saving 
General banking 
Godiva chocolate 
Gold: 

Future prices 

News 

Golf, Belmont Golf Asen 
Golf, Official PGA Tour: 
Biographies 

Players 

Statistics 

Golf (SIG) 

Gomoku game 
Good Earth (SIG) 
Graln prices 
Gralns futures 
Groller's Encyclopedia 
Ground water 
Hammurab! game 
HamNet (SIG) 
Handelman's Athletic Sup 
Handicapped, deaf 
Hardware reviews 
Health 

Health and fitness 
Health Care 

Health Resources 
Health-Tex 

Heath Users’ Group 
Heathkit Catalog 
Helnoid Commodities 
Help 

Help (documentation) 
Hi-tech Forum 
Hockey (AP wire) 
Hollywood Hotline 
Home banking 
Home finance 


Home management programs: 


Amonize a loan 
Calculate a raise 
Checkbook balancer 
Net worth 

Home services 
Horticulture 

House plants 


Howard Sams Books 
Humor, satire 
Huntington, bank 
Husbandry 

IBM-PC (SIG) 

IDs 

IRA 

Immigration 

Index: 

AAMS! journals 
CompuServe 
Computer Periodical 
Stock Market 
Industries, farming 
Information, music 
Information on Demand 
Information Retrieval Ser 
Insurance: 

Dental 

Disability 

Employee Benefits 
Health 

Lite 

Miscellaneous 
Insurance, aircraft 
Intelligence test 
Interest rate 
Investment news 
Investment News & Views 
Investments: 
MicroQuote 

Investors Diversified 
Job, In the home 
Jobs: 

St. Louis Post-Dispatch 
Jumbled words test 
Kesmai 

Kitbullding 

LDOS (SIG) 


Languages on CompuServe: 


Bliss 

Focal 

Fortran 

Macro 

Pascal 

Snoboi 

Legal Forum 

Lega! issues 

Library, electronic 
Lineprinter art 
Liquid Green 
Literary (SIG) 
Livestock futures 
Livestock prices 
Lobby Letters 

MMS Financial Analysis 
MNET-11 (SIG) 
Macro 

Magazine, advertisers 
Magic Cube solution 
Mainstreaming 
Maintenance equip 
Manuala, documentation 
Manufacturers newsletters: 
Commodore 

RCA 

Tandy 

Maps, roed travel 
Marine weather 
Market prices 

Market research 
Massachusetts, banking 
Medical: 

AAMSI Forum 
ASCMD Forum 

FOI Newsline 

Medical newsletter 
Medica! Records 
Medicine, consumer 
Metals futures prices 
Metals prices 

Micro Advisor, The 
Microcomputers 
Advice 

Financial news 
General 

RCA 

Tandy 

Whats new ir 
MicroQuote 
Microsoft (SIG) 


Middiesex Dally News 
MineEquip 

Money market 

Money supply 

Monthly charges 
Mortgage budgeting 
Movie reviews 
CompuServe 

HO'NywoOod Morne 
Multiple Choice. the 
Music 

Music Forum 

Music Information Service 
Musus-Pascal (SIG) 
Mutual Funds 

NASA 

NIPSIG 

NOAA weather 

NTS6 cases (aviation) 
NWS aviation (weather) 
NYSE prices (MQUOTE) 
Names of users 
National issues (SIG) 
National Water Well Assn 
Nations! Weather Service 
Netwits 

Netwits (SIG) 

New product news 
Popular Science 

The Micra Advisor 

New services 

News. CB 

Newsletters 

AAMS! Communications 
Commodore 

ACA 

Tandy 

New spepers 

Node locations 

North American weether 
Norwegian Am Cruises 
Notices (Bullet) 
Nutritlonal analysis 

OK level 

OTC drugs 

OTC prices (MQUOTE) 
Official Airline Guide 
Ohio, banking 

Ohio regional news 
Ohio Scientific (SIG) 
Options, stock 

Orch-90 music (SIG) 
PGA Officia! Tour Guide 
PUG (Panasonic SIG) 
Pan Am 

Panasonic (SIG) 
Parenting & Family Life 
Pascal (SiG) 

Password, changes 
Peak Delay Guide 
Periodical Guide 
Personal computing 
Personal finance. 

Govt nubliications 

Home Management 
investors Diversified 
Personality profile 

Pets 

Pllot weather 

Plants 

Politics: 

AP Viewdata Wire 
Middiesex Daily 
Washington Post 
Popular Science Magazine: 
Automotive News 

New products 

Science & Technoiagy 
Software reviews 

Pork prices 

Portfolio valuation 
PowerSoft’s XTRA-80 
Precious metals 
Precious metais news 
Prescriptions 

Prime Interest Rates 
Primetime Radio Classics 
Professional: 
Agribusiness database 

E 1g Techrical database 
E-v-ro-meta database 


Programmer's SIG 
Programming area 
Programming languages 
Programs for sale 
Programs trom users 
Programs. medical 
Public access 

Quick Quote 

RCA Newsletter 
RCA (SIC) 

Radio 

Amateu’ 

O'd raa-c Srows 
Radio Shack computers 
Rainbos Reviews 
Rates, CompuServe 
Real estate, ads 

S! Lou's Post-Dispatcnr 
Recipes (SIG) 
Recorckeeping, home 
Reference guide 
Referral Service, law 
Regulatory Affairs Prof 
Reservations, airline 
Forstworid Trave' 
Resource. water 
Reviews, hardware 
Reviews. movie 
ComouServe 
Reviews, software. 
Popuiat Scierce 

The Micro Advisor 
SAT test information 
SIGS 

AAMS! 

ASCMD 

AVSIG 

Arcade 

Atari 

Authors 

CBIG 

CEMSIG 
Commodore 
Commodore Pet 
Commodore 64 
Commodore VIC 20 
Communications 
Cooks Underground 
CP M Group 
Decwars 

Educators 
Environmental 
Family Matters 
FireNet 

Food Buyline 

Games 

Golf 

Good Earth 

HamNet 

Hi-Tech 

HUG (Heath) 
IBM-PC 

LDOS TRS-80 

Legal 

Literary 

MAUG (Apple) 
Microsoft 

MNET-11 

MNET8O TRS-80 
Music 

Musus-Pascal 
Netwits 

NIPSIG 

Orch-90 

OSs 

PowerSotts XTRA-80 
Programmers 

PUG (Panasonic) 
RCA Group 

Space 

Sports 

Telecomm 

Trave! 

TRS-80 color 

TRS-80 Mode! 100 
Veterinarians 
Work-at-Home 

St. Louis Post-Dispatch 
Sams, Howard Books 
Satire 

Saving Accounts 
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Scott Adams games 
Scramble game 


Securities: 
Informatan 
Self-employment 
Self-Health 

Services for the Deaf 
Shawmut. bank 
Shop-at-home 


Shopping: 

Cars 

Musical 

Radio Snows 

Shuttle, space 

Silly fill-in 

Silver futures prices 
Silver news 

Ski conditions 

Small business reports 
Smoking and health 
Snobol 

SOFTEX 

Software Authors SIG 
Software Exchange 


Software reviews 
Popular Science 

The Micro Adv'sor 
South America weather 
Space (S/G) 


Special Interest Groups: 


Sports news: 

Golt 

St. Lours Post-Dispatch 
Scores (AP) 


Sports quiz 

Sports (SIG) 

Spotlight, CBers 
Standard & Poors 

Star Trek game 

State capital games 
Stereos for sale 

Stevens Business Reporis 


Stocks, bonds: 
MicroQuote 

Quick Quote 

Sugar futures prices 


TMC for kids 

TRS-80 color (SIG) 
TRS-80 computers 
TRS-80, MNETS8O (SIG) 
TRS-80 Model 100 (SIG) 
TRS-80, programs for 
Tandy Corp. news 
Technical books 
Technical research 
TelaComm (SIG) 
Telephone access 
Tennessee, banking 
Terminal! parameters 
Termina! software 


Financia! aid 
Pubiications of 
SAT test information 


The National Satirist 
Time used 

TODAY, advertisers 
Trading, commodities 


Travel: 

Department of State 
Firstworld Trave: Ciub 
Norwegian Am Cru:ses 
Official Airline Guide 
Pan Am 

Travei Fax 

TravelVisior 

Worldwide Exchanges 


Travel, abroad: 
Department of State 
Firstworid Travel Ciub 
Norwegian Am Cruises 
Official Airtine Guide 
Pan Am 

Travel Fax 

Travel, advisories 
Travel, airline guide 
Travel Fax 

Travel (SIG) 

Traveler, airport guide 
TravelVision 

Treasury bills, yields 


Meat 

Poultry 

U.S. Department of State 
U.S. News: 

Middlesex Dally 

St Lou's Post-Dispatch 
Washington Post 


Used cars, buying 
User directory 


User information 
User's programs 


VIC 20 (SIG): 
Vacationing 

Value Line Database 
Vegetables 
Veterinarians Forum 
Victory Garden 

Video Information 
Videotex, views on 
VIOTEX executive 
Viewpoint, CompuServe 


Want ads (Bullet) 

War games: 

Decwars 

Megawars 

Space War 
Washington, D.C. area: 
Middiesex Daily 

St Louis Post-Dispatch 
Washington Post 


European weather 
Extended forecasts 
N American weather 
S American weather 
Sports forecasts 
State forecasts 
What's New 

Wheat prices 

Wine guide 

Wire service news: 


(see Associated Presa Access) 


Word processors 
Work-at-Home (SIG) 
World news: 

AP Viewdata Wire 
Associated Press 
Washington Post 
Worldwide Exchanges 
Yachts 


Associated Press News Access 


Financial wire: 
Middiesex Daily News 
St Louis Post-Dispatch 
Washington Post 


Sports: 


Middlesex Daily News 
St Louis Post-Dispatch 
Washington Post 

U.S. News: 

Middlesex Daily News 
St Louis Post-Dispatch 


Washington Post 


Access to Terminal types Trivia: Washington Post Woche nica Nee: 
Commercia Tests, children Kids Water, ground igulecc: Dail News 
Descriptions ut Tests, interactive Movie WaterLine ei ee a oan 
Gene'a’ Tests, SAT Radic Weather: u Ss spatc 


Washington Post 
World News: 
Middlesex Daily News 
St Lou's Post-Dispatch 
Washington Post 


McLean, Virginia 22102 
(800) 336-3366 
(800) 572-2070 (in Virginia) 


Hardware reiated Text editors AP Viewdata Wire 


African weather 
Asian weather 
Aviation weather 


Urumted test 

UCSO Pascal! Group 
USDA Grades 
USDA standards. 


Instructions 
Sottware related 
Sport, clothes 


The College Board: 
Adult educat:on 
Choosing a coliege 


THE SOURCE 


Source Telecomputing Corporation 


The Reader’s Digest Association, Inc. 


1616 Anderson Road 


ADVANCED APPLICATIONS & PROGRAMS 
ADVICE COLUMN 
AIRSCHEDULES 
Domestic 
International 
Inter-City 
ASTROLOGY LIBRARY 
AWARE FINANCIAL SERVICE GLOSSARY 
BARTER-TRADE NETWORK 
BUSINESS & FINANCE 
Analysis Programming 
Annuities Analysis 
Aware Financial Service 
Spreadsheet 
PURCHASE VS PRODUCTION COMPARISON 
BUSINESS PROGRAMS 
Complete Listing 
Amortization of Loans 
Amortization of Loan UNK Term 
Annuity Debt Payment 
Balancing Checkbook 
Capital. Cost of Equity 
Cashflow. Present Value 
Commission, Sales Report 
Depreciation Schedule 
Equipment Lease vs Purchase 
Equity Capital Cost of 
Inter-industry Flow of Goods & Services 
Interest Bonds 
Interest Loans 
Sales Commission Report 
CALCULATOR 
CAREER NETWORK 
CLASSIFIED ADS 
COMMODORE BUSINESS MACHINES 
COMMUNICATIONS 
CHAT 
Chat (Jive conversation with other subscribers} 
TELECONFERENCING 
SOURCEMAIL 


216 


Abbreviated listing 


To Check Mailbox 

To Read Letters 

To Scan Correspondence 
To Send a Letter 

General Information 
Commands tn Mail 
Cross-Referenced Names 
Operation of SourceMail 
Timed- Mai! Delivery 

To Send a MAILGRAM 


MISCELLANEOUS COMMUNICATION SERVICES 
Contents of THE SOURCE 
Personal Appointment Schedule 
THE SOURCE Announcements 
THE SOURCE Toll Charges 
Suggestions far THE SOURCE 
Subscribers Currently On-Line 
TYMNET TELENET Access Numbers 
Subscriber Directory Services 
The Common: interest Directory 
To Add Your Name and Number 
CONSUMER INFORMATION 
DINING OUT, WASHINGTON. DC 
NEW YORK CITY 
CONTINENTAL US & CANADA 
DISCOUNT SHOPPING SERVICE (COMP-U-STORE) 
Instructions 
Overview 
Bargains (the monthly fisting) 
Auction 
Product and Manufacturer List 
Begin Shopping 


Covering the following product categories 


Appliances Fine China Sterling 
Cameras Furniture Televisions 
Cars Pianos and Organs Video Recorders 
Crystal Specialty Items Watches 
Figurines Stereo & Audio 

EDUCATION 


(703) 734-7500 (outside the U.S.) 


ENERGY SAVING NEWS & TIPS 
FINANCIAL MARKETS 
UNISTOX REPORT INDEXES 


Alphabetically 

By Time 

Dividends. Earnings 
Earnings Reports 
Exchange Rate 

Federal Land Bank Bonds 
Futures. Treasury Bills 
Futures & Options 


Giossary of Stock Investment Terms 
ihdexes, Stock Market Daily Avgs 


Moody s Index 
Standard & Poors Index 


AMERICAN STOCK EXCHANGE 


Bonds 
Closings (All Stock Exchanges) 
Ten Most Active 

Weekly Composite Prices 
Weekend Bond Prices 


BONDS 


AMEX Daily Listing 
Bond Yield Computations 
Bond Price, Accrued Interest 
Computations 
Federal Land Bank, Daily 
NYSE Daily Listing 
Treasury OTC, Daily 
World Bank. OTC, Daily 
Treasury OTC, Weekend 
Weekend Listings 
Commodities 


METALS 


Metals News 

Gold News 

Gold Spot Prices 

NY “Chicago Mkt Prices 
NY-/London Mkt Prices 
Platinum 


Sitver Coins 
Silver Prices 
Silver News 
MONEY MARKET NEWS AND COMMENTS 
Afternoon Lead 
Futures 
Markets ata Glance 
Night Lead 
Noon Lead 
NYSE Trends 
Opening Lead 
Stock Pulse 
What the Market Did 
FINANCIAL MODELING 
FOR BUSINESS PLANNING 
FINANCIAL NEWS 
GAMES 
Adventure 
Backgammon 
Biackdragon 
Cards 
Blackjack 
Super Blackjack 
Bridge 
Poker 
Tricks 
Checkers 
Chess 
Children s Programs 
Cw War 
Craps 
Oraw 
Farmer 
Fillin Letters 
Football 
Golf 
Govern Sumeria 
Guess Computer's Number 
Hangman 
Horse Race 
I-Ching 
1Q Test 
Life 
Lunar Landing 
Market A Product 
Mastermind 
Maze Generation 


Mind Reading 
NIM 
Patrol Streets (game) 
Poster 
Puzzles 
Rule Sumerta 
Score Four 
Sinners 
Slalom 
Slot Machine 
Sonnets 
Statistics 
Star-Trek 
Super Adventure 
Target Practice 
Tic Tac Toe 
Toro 
Tricks 
Vegas 
Wumpus Hunt 
INFORMATION ON DEMAND 
INFORMATION ON UPDATES TO THE SOURCE 
MANAGEMENT CONTENTS 
Overview 
Instructions 
The List of Journals 


On the following Journals 


Industry Groups Numbers List 
Creating Portfolio Files 


**Stock Analysis and lfables** 
MEDICAL ADVICE 
MENU TO MANY DATA BASES ON THE SOURCE 
MOVIE REVIEWS BY JAY A. BROWN 
NEWS 
PERSONAL CALENDAR & NOTEBOOK 
PERSONAL FINANCE 
POLITICAL ACTION REPORT 
PORTFOLIO MANAGE MENT 
PROFESSIONAL BOOK CENTER 
PUBLISHERS WEEKLY 

BESTSELLERS LIST 
RADIO PROGRAMS TO ORDER 
RAYLUX FINANCIAL SERVICES 
SCIENCE & ENGINEERING 
SELF-PERCEPTION 
SMITHSONIAN EXHIBITS 

AND TOURING EXHIBITS 
SPECIAL APPLICATIONS 
STUDENT AID 
TAXES 

Assets 

Caiculation of Income Statement 

Computing Taxes 

Contributions 


Across the Board INC Credits 
Administrative Management __ Institutional Investor Debts 
American Demographics Journal of Retailing Deductions 


The Banker Medical Economics 
Business and Society Review Mergers & Acquisitions 


Dependents 
Depreciation Schedule 


Business Week Monthly Labor Review Donations 

Cash Flow Magazine Office. The Expenses 

Dun's Review Practical Accountant Income Statement Pro Forms 
Federal Reserve Bulletin Sloan Management Income Tax 

Financial Executive Review Taxes 

Forbes Taxes TRAVEL CLUB 

Fortune Venture UNISTOX 

Futurist Vital Speeches UNITED PRESS 


Harvard Business Review Wharton Magazine 


MEDIA GENERAL STOCK ANALYSES 
Overview 
Instructions 
Categories of Stock Comparison 
Definitions of Data {tems 


INTERNATIONAL (UPI) 
USER PUBLISHING 
VOICEGRAM 
WEATHER 
WINE 
WISDOM OF THE AGES 


Local networks. A comprehensive listing of 
local networks or “bulletin board systems” (BBS), 
the computer era’s answer to old-fashioned 
corkboards, for personal computerists follow. To 
post a notice, you dial the service and add your 
message to a list of notices that will appear on your 
screen. If any message interests you, you can 
reply —on your computer, of course. Usually, your 
only cost is the phone charges. 

The codes printed next to each BBS phone 
number are explained here: 

*24 denotes 24-hour 
operation 
#1 denotes original system 


ABBS Apple-Mate, New York, NY .... 0.0.20... 0 0. cee ene (201) 864-5345 
ABBS CCN], Pompton Plains, NJ ............ 000000 cece eee (201) 835-7228 
ABBS Livingston, NJ ..02 6.0. tees (201) 994-9620°24 
A-C-C-E-S-S Wyckoff, Np... eee ee (201) 891-7441°24 
Aphrodite: Bccaterssscuotitct wn hhd iid oh Os glenn dda eae eto (201) 790-5910-so 
CONFERENCE-TREE ?, Flagship, Denville, NJ ................ (201)627-5151°24 
DIAL-YOUR-MATCH 414 0.0.0.0... 000000 ccc ccc cc eee (201) 272-3686-so 
FORUM-80 Linden, NJ ...... 0.000.000 cc cece eee eee es (201) 486-2956°24 
FORUM-80 Monmouth, Brielle, NJ .......0..0.. 0.000. c ee eee (201)528-6623°24 
New Jersey TELECOM ............ 20.000. 00 0 cece eee eee #1(201)635-0705°24 
PHOT O-80, Haledon, NJ........0.0000 000 ccc cc cee renee (201) 790-6795 
PMS - Rutgers Univ. Microlab, Piscataway, NJ..............4.. (201)932-3887 
PMS - Shrewsbury, NJ... 0.0... ens fe la Stae! (201) 747-6768 
RATES 2 2oNDWY chs cote Sock et ee tanh Ee oleh lat nod Dek eed #1(201) 887-8874 
RCPiIM MCBBS Ken Stritzel, Flanders, NJ .................0.. (201) 584-9227°24 


of that type 

—rb denotes call, let ring 
once and call back 

—so sexually oriented 
messages 

—rl religious orientation 

! new system or new number 
for existing system 

1 Supports VADIC 1200 baud 
Operation 

& Supports 212A 1200 baud 
operation 


Start dialing and explore! 


RCPIM RBBA Cranford, NJ .........0.0 000000 cee ee ces (201) 272-1874 
RCPIM RBBA Ocean, NJ........ 0.0.0.0. cee cee eee eee &(201) 775-8705 
RCP/M RBBS Paul Bogdanovich, NJ ..........0 0.000. c eee ees (201) 747-7301 
PCP/M RBBT New Brunswick, NJ .......... 2.00.00 c cee eee (201) 932-3879°24 
ARMUDIC Washington, DC ............... 0.000. #1(202) 276-8342 
PSBBS Washington, DC ........ pL ee ol ort tet Lorient es hae (202) 337-4694°24 
BULLET-80 Danbury, CT ............. 0000... c cece ccna #1(203) 744-4644 
BULLET-80 Seymour, CT ...... 6... ccc ce nnn (203) 888-7952 
Telcom 7 New Fairfield, CT ........... 00.0000. 0 cece ees (203) 746-5763°24 
FORUM-80 Montgomery, AL ...... 0.060. ene (205) 272-5069 
RCP!IM RBBA Huntsville, AL ...... ele be ttt a in dey in fe Meet Slee (205) 895-6749-rb 
ABBS Apple Crate I, Seattle, WA .......00...0 0 eee (206) 935-9119 
A-C-C-E-S-S Olympia, WA ......00..00...0......020200-0 002 ee (206) 866-9043°24 
Dial-Your-Match #16 2.0... 0.0. teens (206) 256-6624-so 
FORUM-60 Seattle; WA 9.05 goa woke de. 2 G7 hoes ead onerdetlaves (206) 723 3282 
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JCTS Redmond, WA ...... 000... (206) 883-0403°24 
MSG-8O0 Everett, WA 2.00.0 ccc enn nes (206) 334-7394 
Mail Board-82 Seattle, WA ......0 00.000 cee ee enn es (206) 527-0897°24 
Mini-Bin Seattle, WA 0.0.0.0... 000 ccc ee eee eee (206) 762-5141°24 
PMS - Software Unltd, Kenmore, WA ....... 0.0.6 (206) 486-2368°24 
RCPIM RBBS Yelm, WA...... 0.00. eee ees (206) 458-3086-rb 
Seacomm-80 Seattle, WA 1.00... c ccc eee nee (206) 763-8879°24 
DIAL-YOUR-MATCH #26, Clovis, CA ..........02. 0.502 e eee (209) 298-1328-so 
ABBS (?) Queens, NY ........0 0000 c cece ete ee (212) 896-0519 
Bronx: BBSANY a4 tots bi 28 wha ee ae ee Be (212) 933-9459 
BULLET-80 New York, NY ........ 0.00. ee eens (212) 740-5680°24 
COMM-80 Queens, NY ....... 0.00 ccc eee eee (212) 897-3392°24 
CONNECTION-80 Woodhaven, NY ........ 0.00000 cee eee (212) 441-3755°24 
Leigh’s Computer World, NY, NY ...........5.-5. (7PM)..... (212) 879-6257 
NET-WORKS New York, NY 0.00.0 0.0 0000 e ccc teen eeeee (212) 410-0949 
RUD Ree BO Norn nac Rhcatt inde tive enced ad ah sedeadyd toon ae neon (212) 626-0375 
Pat-100 System New York, NY .......... 5.06500 (212) 991-1664°24 
“PEOPLE ESEINK SG: a2ccve fi dd Oo iat? elena eect he Pane aba #1'(212) 877-7703°24 
PMS - McGraw-Hill Books, New York, NY ...............20055 (212) 997-2488 
STUART -200 BBA Howard Beach, NY............ 0.2.2.0 00 eee (212) 835-5962°24 
TCBBS AstroCom, New York, NY .....0000..00 00 ees #1!(212) 799-4649 
TCBBS BAMS. New York, NY 0.0.0... 00. eee eee (212) 362-1040°24 
TCBBS Leigh's Computer World, NY .....0...0.. 0002 eee ees (212) 897-7698 
VTUGS NY. NY (VIC-20). 0000 ee eens #1(212) 534-3149°24 
AlliNight- BBS ot coetcaad ee idee wedoes ka yews Gd Gi Sedunt (213) 564-7636 
ABBs Computer Conspiracy, Santa Monica, CA ............455 (213) 829-1140 
ABBS Pacific Palasades, Los Angeles, CA ............ 0000s (213) 459-6400 
BBS B.R., Los Angeles, CA... 2... 0c cece cence tee cans (213)394 -5950°24 
Computer Connection «10s <r tte ees aes Heke Hee Lat (213) 657-1799 
CONFERENCE-TREE #4, Santa Monica, CA .......... 02.0006 (213) 394 1505 
CONFERENCE-TREE Kelp Bed, Los Angeles, CA............65 (213) 372-4800 
Datamate, Conoga Park, CA 22.0... ee ee. #1(213) 998-7992-so 
DIAL-YOUR-MATCH &@1 2.0.0.0... cc cece tee teens (213) 842-3322-so 
DIAL-YOUR-MATCH &@l1 2.0.0... ccc ct eee ene (213) 242-1882-so 
DIAL=YOURSMAT CH #22.4.ch56e 4 ete bet ne hes ea (213) 990-6830-so 
DIAL-YOUR-MATCH 4&4 ........0.0 0020. eee (213) 783-2305-so 
DIAL-YOUR-MATCH 849 ...0 00... eee ee (213) 345-1047-so 
Dragons Game System ..............0-- (pass-DRAGON)..... (213) 428-5206 
Electric Line Connection, Sherman Oaks, CA ......... 00000 eee (213) 789-9512 
Greene Machine Fricaseed Chicken, Arcadia, CA............4.. (213) 445-3591°24 
Greene Machine, Los Alamitos, CA .......-. 00000 c eee cece ees (213) 431-1443 
Greene Machine, Temple City, CA ......... 00.000: c eee ee eee (213) 287-1363 
Kluge Computer ih cer seas Meat Ret eee ded ings Sicha targa asad agente adie ce sgh ah cat teh $&(213) 947-8128°24 
L.A. Interchange, Los Angeles, CA............-.-.0.. 0-00 e eee (213) 631-3186°24 
Long Beach Community Computer ........-.....--2-002+-000 (213) 591-7239°24 
NET-WORKS Coin Games, Los Angeles, CA .................. (213) 336-5535 
NET-WORKS Computer World, Los Angeles, CA.............. (213) 859-0894°24 
NET-WORKS Softworx, West Los Angeles, CA ............... (213) 473-2754 
Novation CO, Los Angeles, CA ..........-... [pass-CAT]..... (213) 881-6880 
Oracle North Hollywood, CA 2.00.0... cece eens (213) 980-5643-so 
PASBBS Torrance, CA...... 0.0.0 c ccc teens #1(213) 516 708 
PMS - Los Angeles, CA... 2.0... cece eee (213) 334-7614°24 
PMS - OA.C., Woodland Hills, CA ......0020000.02.02 0000-2000. (213) 1849°24 
RCP/IM CBBS Pasadena, CA ...0 0.0000 eee (213) 799-1632°24 
RCP/IM RBBA BBA Valley .............. 000 cece eee eens 213) 360-5053 
RCPIM RBBA GRRN Dta Exch Palos Verdes, CA........... $ &(213) 541-2503°24 
RCP/M RBBS Sofwaire Store, Los Angeles, CA.........-...... (213) 296-5927°24 
ABBS Dallas Info Board... 0.2.0.0... 000 cc eee (214) 248-4539 
ABBS Teledunjon II, Dallas, TX «0.0.00... 00000. c eee eee (214) 530-0858 
ABBS Teledunyjon III, Dallas, TX .... 000.00. ee eee ee (214) 960-7654 
ABBS The Moon, Dallas, TX 02.00.0000 0000000 ccc eee eee (214) 931-3437°24 
BBS-80 DALTRUB, Dallas, TX .......00...2..220.0 020 eee ee eee (214) 235-8784°24 
BULLET -80 Hawkins, TX 0.00.0. eee (214) 769-3036 
NET-WORKS Apple Grove, Dallas, TX ............-...0...00.. (214) 644 5197 
NET-WORKS Apple Shack, Dallas, TX. ......0......0...0.00-. (214) 644 4781°24 
NET-WORKS Eclectic Computer, Dallas, TX ..............0... (214) 239 5842 
NET-WORKS Hacker-net, Dallas, TX .......... 0.000000 cea (214) 824 7160 
NET-WORKS Winesap, Dallas, TX 0.0.0.0... 0002000 eee (214) 824 7455 
RCPIM CBBS Dallas, TX 00.0000 eee (214) 931-8274 
BULLET 80 Langhorne, PA 20 0... ee ....(215) 364-2180 
COMNET-80 North Wales, PA. 000 000 ee (215) 855-3809 
Hermes 80 Allentown, PA se idk, sie peer eran petit Bites Gb eM (215) 434-3998 
Lehigh Press BB/ PA: icc io wdete cont anen a eet Sasa ea es #1(215) 435-3388 
RCP/IM RBBA Allentown, PA ....... 0.00 c ccc eas + .(215) 398-3937°24 
ABBS Akron Digital Group, Akron, OH............... 00.00 eae (216) 745-7855°24 
BBS Computer Applications Co., Poland, OH .................. (216)757-3711 
BULLET-80 Chesterland, OH ....... 0... c cece ccc eens (216) 729-2769 
COMNET-80 Akron, OH ... 2.0... ce ccc tte &(216) 645-0827°24 
FORUM-S80 Cleveland, OH...........0.. 000 e cece eee &(216) 486-4176 
INFOEX-80 Akron, OH.... 2.0.6. eee tee (216) 724-2125°24 
PMS - Massillon, OH ......0. 0.000. e eee een eee eees (216) 832-8392°24 
PMS - RAUG, Akron, OH 2.2... 0. cece cc cee cee ence eee neee (216) 867-7463°24 
BULLET 80 Springfield, [bow si. cease ecanees 4a ees oes (217) 529-1113 
NET-WORKS C.A.M.S., Decatur, IL................ sth Agathe (217) 429-5541 
A-C-C-E-S-S Annapolis, MD... 0... ccc tee teens (301) 267-7666°24 
ABBS Computer Crossroads, Columbia, MD .................. (301) 730-0922 
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ARMUDIC Computer Age, Baltimore, MD .............:00000- (301) 587-2132 


BBS IBM PC Beltsville, MD ........ 0.0 cee cece eee tenes (301) 937-4339°24 
BBS IBM PC Bethesda, MD ............ 0. cece u ete e eee eens (301) 460-0538°24 
BBS IBM PC Gaithersburg, MD .......... 00... e eee ces (301) 251-6293°24 
BBS IBM PC Rockbille, MD ......... 0c cece cere cee ete e ees (301) 949-8848°24 
CBBS CPEUG/ICST Gaithersburg, MD .................-.0.5. (301) 948-5717 
CONNECTION-80 Gaithersburg, MD ....................040. (301) 840-8588°24 
HEX Silver Spring) MD ene.ivek so cine cee eee gies giohds %(301) 593-7033°24 
NET-WORKS COMM Center, Laurel, MD.............. 020055 (301) 953-3341 
PMS - Baltimore, MD .... 0.0... ccc teen nt nee ene (301) 764-1995°24 
PMS - Ellicott City, MD 2.0... cece eee nee (301) 465-3176 
PMS - Pikesville, MD... 0... cc ee eee nee (301) 653-3413 
PSBBS Baltimore, MD ......... 0 ccc cece eee nee nee ene (301) 994-0399°24 
RCP/M RBBA Bethesda, MD........... cc cee cece ence teens (301) 229-3196 
RCP/M RBBA Laurel, MD ............ 0.00 c cee eee etnies (301) 953-3753°24 
Remote Northstar NASA, Greenbelt, MD.................005: (301) 344-9156 
ABBS Denver; CO sc3 in ces a ee aetna sai (303) 759-2625 
BBA IBM PC Denver, CO ..... ce cece cee ce tne een ee ne nee (303) 773-2699°24 
CONNECTION-80 Denver, CO... .. cece ccc cece nee (303) 690-4566°24 
FORUM-80 #2, Denver, CO ...... ieee cee cnet eeee (303) 399-8858°24 
HBBS Denver, CO ..... ccc ccc cece teen cnn e enn eeeee (303) 343-8401°24 
RCPIM CUG-NOTE, Denver, CO ..... cece cect een eeeees (303) 781-4937°24 
RCP/M RBBS Arvada Elect., Colorado Springs, CO............. (303) 634-1158°24 
RCPiM RBBS Boulder, CO..... 0... ccc ccc neces (303) 499-9169 
Remote Northstar Denver, CO ....... cece cee eens (303) 444-7231 
NET-WORKS Charleston, WV ...... ccc ccc ete een nee (304) 345-8280 
ABBS Byte Shop, Ft. Lauderdale, FL ........ cece eee e ene eens (305) 486-2983 
ABBT Byte Shop, Miami, FL wo... cece cece rere rere eens (305) 261-3639 
ABBS West Palm Beach, FL ....... 0c cece eee ete e te nenes (305) 848-3802 
AMIS APOGEE Miami, FL .... 0. eee ee eee ee ee eens (30S) 238-1231-rb 
BBS Homestead, FL ...... cece cect cee ete eee ee ree neeae (305) 246-1111 
CONNECTION-80 Orlando FL... . 1. ke eee (305) 644-8327°24 
CONNECTION-80 Winter Garden, FL... 0... ccc cece eee es (305) 894-1886°24 
FORUM-8O Ft. Lauderdale, FL............ Rides that ee kts (305) 772-4444°24 
Greene Machine Corsair, WPB, FL.... oo. c ec cee (305) 968-8653 
Greene Machine, WPB, FL oo... ee cee cee teens (30S) 965-4388-s0 
INFOEX-80 West Palm Beach, FL... eee (305) 683-6044°24 
MOUSE-NET Orlando, FL... 00. c ccc ee ene enee (305) 277-0473°24 
Micro-80 West Palm Beach, FL ........... 00. cece eee ee eens (305) 686-3695 
NET-WORKS Big Apple, Miami, FL .......... 00. cece cence (305) 948-8000 
Personal Msg. System-80 Deerfield Bch, FL ................. &(305) 427-6300°24 
TRADE-80 Ft. Lauderdale, FL ........... 2.02.2 #1(305) 525-1192 
PET BBS SE Wyoming PUG........... 00. cee cece e eens (307) 637-6045°24 
ABBS::Peorias [bawicehees teh ok ees 4 ee ee te ith (309) 692-6502 
NET-WORKS MAGIE, Galesburgh, IL ........... 0.0 c cece ees (309) 342-7178 
RCPIM Geneseo, [IL i... 0... cc ce eee ee ee ete nett e eee (309) 944-5455 
ABBS CODE, Glen Ellny IL ...... 0. cee cee ee eee ees (312) 537-7063°24 
ABBS Gamemaster, Chicago, IL .... 0... eee eee ce eee (312) 475-4884°24 
ABBS Illini Microcomputer, Naperville, IL ............... 2000 (312) 420-7995 
ABBS Rogers Park, Chicago, IL-1... 0... cee eee eee (312) 973-2227 
AMIS <CWicageo. Us oem Sta oitads o ce Sonnet a eileen 4 bueeraetatn sacl (312) 789-3610°24 
ANESSY Chicago, IL .........0.. 00 cc cece ence se cee e scene +1(312) 773-3308 
BBS IBM PC Modem Chicago, IL .......0...0 0.00 e eee (312) 259-8086*°24 
CBBS: Chicago cll, ..222.0 seb ies phe et hae ie a tenes #1(312) 545-8086°24 
MCMS C.A.M.S. Chicago, IL... 66 ec eee #1&(312) 927-1020°24 
MCMS L.A.M.S. Round Lake, IL 2... cc nee (312) 740-9128 
MCMS Metro West Database, Chicago, IL... 00... eee eee &(312) 260-0640°24 
MCMS P.C.M.A. Wheaton, IL... 6... ce eee '&(312) 462-7560°24 
MCMS WACO Hot Line, Schaumburg, IL........... {pvt]..... (312)4374°24 
NET-WORKS Chipmunk, Hinsdale, IL ............0....0.0004. (312) 323-3741°24 
NET-WORKS North Parks, Chicago, IL ........... 0.2.0.2. 0085 (312) 745-0924 
NET-WORKS Pirate's Ship, Chicago, IL ........0- 0... c eee eee (312) 935-2933°24 
PBBA Co-operative Comp Sve, Palatine, IL ............... 2.00. (312) 359-9450°24 
PET BBA Commodore, Chicago, IL... 2... cee eee (312) 397-0871"24 
PMS? Chicago: Tb feck itt geben ae hd tap a ed ee NN eg lead (312) 373 8057°24 
PMS - Downers Grove/SRT, Downers Grove, JIL .............. (312) 964-6513 
PMS -1A.C., Lake Forest, Ibo... 0.0. ce ee (312) 295-6926°24 
RATS Homewood, IL... 2.2000 eens (312) 957-3924 
RCPIM A.B. Dick Co., Niles, I} oo... 00 ce &(312) 647-7636°24 
RCPIM AIMS Hinsdale, IL 0... 2. ce eee (312) 789-0499°24 
RCPIM IBM PC, Niles, Ib 0... 0. ces (312) 259-8086 
RCP/M Logan Square, Chicago, IL... 1... ee eee (312) 252-2136 
RCPIM NEI, Chicago, IL 0... cee eens (312)949-6189 
RGPIM* Palatine, Ib ioc iv.de eels cook ks cokes Ree aoa pauls &(312) 359-8080°24 
Scream Machine... 2.0... cc cc ee enn ete e et eee ee (312) 680-9613-so 
ABBS ‘Detroit Ml 2c od eek Se Wd rer oo eed eh RS ee (313) 477-4471 
ABBS Michigan Apple-Fone, Southfield, MI ................-.. (313) 357-1422 
AMISARC.ADE. Sterling Heights, MI................ 00005. (313) 978-8087°24 
AMISM.ACE Detroit, MI... . 00. ee es #1(313) 868-2064°24 
Apple: Gram. «fee ito scot sth Bad den pain belts iis ano gee ee des eared )313) 295-0783°24 
BBS Metro Detroit, MI 20... eee (313) 455-4227-so 
BULLET-80 Waterford, MI......0.0000 0.000.000. 0c ee (313) 683-5076"24 
COMNET-80 Mt Clemens, M]......0.0 0000000. e eee eee &(313) 465-9531 
Davy Jones Locket 2 0. eee (313) 764-1837 
RCPiM Detroit, MI.0.0.. Be Ea eka v ge Teh oe te eae eh earck eae eset (313) 584-1044-rb 
RCP'M MCBBS Keith Petersen, Royal Oak, MI......0...00...., (313) 759-6569-rb 


RCPiM MCBBS TCBBS Dearborn, MI . nee _.(313) 846-6127°24 
RCP'M RBBS Pontiac. MI of ahs AGARe Baas (313) 338-8575 


RCP/IM RBBS Southfield, MI) 0.0.00 0000 eee (313) $59-5326°24 
RCPIM RBBS Westland, MI........0.....0. 0000000 cee eee (313) 729-1905-rb 
Treasure Island! «seine ie fa eg wh ng nee. A ete Se ER (313) 547-7903 
TwilightiPhones,<.cones ihe ioc ae as 5 eee alae alee elite ay (313)775-1649°24 
Westside Download, Detroit, MI... 06. ee (313) 533-0254 
ABBS Century Next Computers, St Louis, MO ............... (314) 442-6502 
ABBS St Louis, MO........- 0... cette tees (314) 838-7784°24 
Midwest, St. Louis, MO oo... ence ene nes (314) 227-4312-so 
NET-WORKS Computer Station, St. Louis, MO............... (314) 432-7120 
PET BBS Commodore Comm., Lake St. Louis, MO ............ (314) 625-4576°24 
Greene Machine, Rome, NY ........... 0.00 ce cece cee cee eees (315) 337-7720 
FORUM-60) Wichita, KA iiseisdei eid utteiaas ale kes ney eee, &(316) 682-2113°24 
NET-WORKS Greenfield, IN .........0.0. 0000.00 cece eee eens (317) 326-3833°24 
ONLINE Indianapolis, IN. [ID#a-GUES, pswd-pass].............. (317) 787-9881°24 
PET BBA AVC Comline, Indianapolis, IN............0... 000005 (317) 255-5435°24 
PMS - Indianapolis, DIN oekeced ete coat eee ann ieee an Siar te tg (317)787-5486"24 
FORUM-80 Shreveport, LA ......... 0.00 c cece ccc eee en aee (318) 631-7107°24 
ABBS Apple-Med, lowa City, IA ......0.00. 0.0... cece eee ee (319) 353-6528 
CBBS Cedar Rapids, IA ......... 00. ccc eee eee (319) 364-0811 
NET-WORKS Computer City, Providence, RI ................. (401) 331-8450°24 
ABBS Omaha, NE .... 0... ccc ee ee ene ennes (402) 339-7809 
DIAL-YOUR-MATCH 423, Omaha, NE...............22200055 (402) 571-8942-so 
TRADE-80 Omaha, NE .........cccceeccvecsecceueecueveeuues (402) 292-6184 
Lethbridge Gaming system, Lethbridge, Alta .................. (403) 320-6923 
RCP/M RBBS Computron, Edmonton, Alta., Canada ........... (403) 482-6854°24 
RCPIM RBBS Edmonton, Alberta, Canada...............000, &(403) 454-6093°24 
ABBS «X, Atlanta, GA... 06. ccc teen eens (404) 256-1549 
ABBS AGS, Atlanta, GA .... 0.0... cece ete tener ne (404) 733-3461°24 
ABBS Baileys Computer Store, Augusta, GA ...............0.. (404) 790-8614 
BBS IBM Hostcomm Atlanta, GA... - 2... eee (404) 252-4146 
BBS IBM PC Atlanta, GA .... 0.0.00. ce cette tees 404) 252-9438°24 
BBS IBM PC Atlanta, GA .... 6... eee eee eee (404) 294-6879 
BULLET-80 Fayetteville, GA oo... cee ccc eee eee (404) 461-9686 
CBBS Atlantax GA: 62224 See het et a aie ek Lead Soke ak Mee dean (404) 394-4220°24 
Remote Northstar Atlanta, GA... 26... ce cee eee #1(404) 926-4318°24 
Telemassage-80, Altanta, GA.... 0... eee (404) 962-0616 
HBBS Oklahoma City, OK .....0...00 000.0 o cece (405) 848-9329°24 
BBS IBM PC Billing, MT......... 0... cc ccc cece etter eens (406) 656-9624 
AMIS GRAFEX Cupertino, CA ..... 0... cece tees (408) 253-5216 
AMIS IBBBS San Jose, CA 2.0... 0c net e eee (408) 298-6930 
AMIS T.A.B.B.S., Sunnyvale, CA ......... 00. eee eee ee (408) 942-6975 
BULLET-80 San Jose, CA 1.0... 0... ccc cece eens (408) 241-0769 
NET-WORKS Computer Emprium, San Jose, CA .............. (408) 227-0227 
PMS - Campbell, CA ...... 000.00 cee eee (408) 370-0873°24 
PMS - Santa Cruz, Aptos, CA... 2.2.6. ccc eee eee (408) 688-9629°24 
RCP/M Collossal Oxgate, San Jose, CA ............0. 0.5.4.0, (408) 263-2588 
RCP/M RBBS DataTech 004, Sunnyvale, CA ..............04.- (408) 732-2433 
RCPIM RBBS San Jose Exgate, San Jose, CA .............00054 (408) 287-5901°24 
RCPIM Silicon Valley, CA 2.0.0.0... 000. c eee eee p Neca wa flvg tee (408) 246-5014°24 
? (Western Massachusetts) ...0000.00.0.00 0000 ccc ee eee (413) 637-3515 
CBBS PACC, Pittsburgh, PA...........00.. 000.0000. 0000 0000s (412) 822-7176°24 
ABBS Colortron Computer, WI......000 0.000 cee eee (414) 637-9990°24 
Big Top Games System, Milwaukee, WI.............--.5.--05- (414) 259-9475 
CBBS MAUDE Milwaukee, WI .............-.-.00..0550200--- (414)241-8364°24 
RCP/M RBBS Mike's, Milwaukee, WI .....................0.. (414) 647-0903 
TBBS Canopus, Milwaukee, WI... ...0.0.0..-050 06.00 e eee ee ne 281-0545°24 
Vanmil, Milwaukee, WE... 0... .0.0000 00 ce eee | (414) 271-7580°24 
ABBS Computerland, Fremont, CA .......0-. 002 eee eee (415) 794-9314 
ABBS Hayward GCA yose65 os wie Se PSSA Pe A aa (415) 881-5662 
ABBS PCnet, San Francisco, CA... 6... ees (415) 863-4703°24 
ABBS South of Market, San Francisco, CA ..............02 0008 (415) 469-8111-s0 
BBS Living Videotext, Menlo Park, CA......-...0-.. 00.00 e eee (415) 327-8876°24 
Blue BOSS IBM PC, Berkeley, CA ..........6.00 000 cece eeee (415) 845-9462°24 
CBBS Lambda, Berkeley, CA ............00 56662 c cece eee (415) 658-2919-s0 
CBBS Promima, Berkeley, CA ......... 00000 e eee ee ee (415) 357-1130 
CONFERENCE-TREE #3, Hayward, CA ...... 0.0.05 eee (415) $38-3580 
CONNECTION-80 Fremont, CA ....-.... 0002 eee eee ee (415) 651-4147°24 
DIAL-YOUR-MATCH 417 0.00.0... 0 ccc cee eee eens (415) 991-4911 
Druirnime rene iy ies ge ee Ae ho ee ee (415) 552-7671-so 
PMS 2 Pleasanton::-CA <2 oa65 oheeiad eda te An eee! (415) 462-7419°24 
PMS - Portola Valley, CA .... 0.00... 6 002 e eee (415) 851-3453°24 
RCP/M RBBS DataTech 001, San Carlos, CA............ "1$&(415) 595-0541°24 
RCP/M RBBS DataTech 006, San Francisco, CA ............45 (415) 563-4953 
RCPIM RBBS Larkspur, CA.... 2.0... cece eens (415) 461-7726°24 
RCPIM RBBS Marin County, CA..... 0... ee (415) 383-0473°24 
RCP/M RBBS Piconet Oxgate, Mountain View, CA .........-.. (415) 965-4097°24 
Sunrise System Oakland, CA... 0.0.66. eee ee (415) 452-0350 
System/80 San Leandro, CA.... 0022. ee (415) 895-0699 
BBS IBM Hostcomm Toronto, Ontario, CA ......0-.. 0-2 eee | (416) 499-7023°24 
BBS NET Toronto, Ontario, CN .... 0000... ee (416) 445-6696°24 
KPri, Toronto, Ont., CN .... 000002 eee #1(416) 624-5431°24 
PET BBS TPUG, Toronto, Ontario, CN ...0..2 0.00002 eee ee (416) 223-2625°24 
RPCIM HAPN Hamilton, Ontario, CN .... 222 ee (416) 335-6620°24 
RCP/M Mississauga HUG, Toronto, Ont, CN ..........-5-- $ & (416) 826-5394°24 


ABBS ABACUS II, Toledo, OH....0. 0.00. .0.00.00 00000 ee eee (419) 865-1594 
ABBS Computer Store, Toledo. OH ...................02..... (419) 531-3845 
CONNECTION-80 Little Rock, AS 2.0.2.0... 0. eee (501) 372-0576 
PMS - Ft. Smith Comp Club, Ft Smith, AK..................,. (501) 646-0197 
CBBS NW, Portland, OR.... 2.0002. ee (S03) 646-5510°24 
OARCS Portland, Oregon ...........0.0 0000 ee (503) 641-2798 
FORUM-80 Medford, OR ... 0... 0s (503) 535 6883°24 


PMS - Computer Solutions, Eugene, OR .........0 .0...00.... (593) 689-2658'24 
PMS. 2:Portland sOR ohn lig taken iene Seek os Bs ....... 503) 245-2536 
ABBS Baton Rouge, LA.............0 00.00.00 cee eee .(504) 291-1360 
CBBS Baton Rouge, LA...... 0.2.02. eee .. ....(§04) 273-3116°24 
NET-WORKS Crescent City, Baton Rouge, LA ................ (504) 454-6688 
Baton Rouge Data System, Baton Rouge, LA........ .. .... ($04) 920-0181 
ABBS Electro-Mart, Spokane, WA | .....0 0.2... oo, ee .. 6 (509) §34-2419°24 
ABBS Rob Roy Computer, Yakima, WA...... .(S09) 575-7704 
CBBS Corpus Christi, TX 0............ ($12) BSS-]S512 
CONFERENCE-TREE Victoria, TX (512) 578-5833 
FORUM-80 San Antonio, TX. re ee ee eee eee ae ($12) 655-8143 
NET-WORKS Sparklin’ City, Carus iG Krist, Tx 
Bathroom Wall BBS, San Antomo, TX 


Miceos asa! trctesatatce 3 (512) 882-6569 
Waid yt We Game reer tect tat wg ($12) 655-8143 


SATUG BBS, San Antonw, TX 2.0.0.0. ee (512) 494-0285 
XBBS Hamilton, OH. 00.0. eee (513) 863-7681°24 
NET-WORKS Dayton, OH.... 02.0. eee (513) 223-3672 
PMS - Cincinnati, OH ©0060 cee ees ($13) 671-2753 
CONNECTION-80 Laval BELE, Laval, Quebec, CN ............ (514) 622-1274°24 
ONLINE Computerland, Montreal, Quebec, CN ............... (514) 931-0458°24 
NET-WORKS Computer Emporium, Des Moines, IA........... (S15) 279-8863 
ABBS Pirates Cove, Long Island, NY ..............-...00 000000 (516) 698-4008 
CBBS LICA LIMBS, Long Island, NY ...........-..0.00 0000 0ue (516) 561-6590°24 
CBBS Long Island, NY .........0... 002 eee (516) 334-3134°24 
CONNECTION-80 Centereach, NY ......0... 00.00. ccc ees (516) 588-5836 
CONNECTION-80 Great Neck, NY ...........0 0000000000 cae (516) 8491°24 
NET-WORKS Pirate’s Trek ........ 00.0000 e cece ence eee eees (516) 627-9048 
Adventure BBS ...... 00.0... c ccc ccc cece teen neces (516) 621-9296 
CONNECTION.-80 Lansing, MI ..........0. 0.00. c cece ee eee (517) 339-3367 
Capital City BBS, Albany, NY ................... 0.0. e eee eee ($18) 346-3596°24 
Remote Apple Jackson, MS... 0.60.0... cece cece ences (601) 992-1918°24 
A-C-C-E-S-§ Phoenix, AZ oo... 0c ccc cece ence ees #1(602) 996-9709°24 
A-C-C-E-S-S Phoenix, AZ 2000600 ec cece & (602) 957-4428°24 
A-G-CAE-S-S PhoenixAZ. scsi cca tue regia i kOe Keb add (602) 274-5964 
A-C-C-E-S-S Scotsdale,AZ ..0 0. ccc ee ete eens (602) 998-9411°24 
ABBS: Phoenix (AZ: 2 so. en eoeba dk eh een ed aah eae (602) 898-0891 
CBBS FSG; Tucson AZ. e2cdinsio eign a he a a we ee (602) 746-3956°24 
FORUM-80 Sierra Vista, AZ 0... 0c ccc eee eee (602) 458-3850°24 
BBS Apollo, Phoenix, AS ............6 00000, ! (602) 246-1432°24 
CONNECTION-80 Peterborough, NH .............2.20.-0000 (603) 924-7920 
FORUM-80 Nashua, NH..... 0... eee eee ee (603) 882-5041 
NET-WORKS Portsmouth, NH............... 00sec eee eeeees (603) 436-3461 
Software Referral Service 0.0.0... ccc cen cee ec tebe nee (603) 625-1919 
ABBS Vancouver, B.C... 6... ccc nec ene n ene (604) 437-7001 
CBBS Prince George, B.C., Canada ...... 0... ccc ce cen (604) 562-9515 
RCPiM CBBS Frog Hollow, Vancouver, BC, CN............... (604) 873-4007°24 
RCPIM Terry OBrien, Vancouver, BC, Canada................ (604) 584-2543 
RCP/M SJBBS Johnson City, NY ........ 0... ce cece cee ee eee (607) 797-6416 
AMIS Magic Lantern, Madison, WI ............ 0.0 c ce cee ee eee (608) 251-8538 
BBS IBM PC Madison, WI ..........020 00-2 cece ee cee es (608) 262-4939°24 
RATS Wenonah, NJ] #2 2.0.0.0. ccc cece eee cee seen cneeaes (609) 468-3844 
RATS Wenonah, NJ ..... 0... ccc ccc ccc ce ence enue nes (609) 468-5293 
ABBS Calvary Mission Church, Mnpls, MN ................045 (612) 471-0252-rl 
CONFERENCE-TREE Minneapolis, MN...............-...-.-- (612) 854-9691 
MCMS NC Software, Minneapolis, MN ..............0. 000 eee (612) 533-1957°24 
PMS - Minneapolis, MN ..........000 0002 cece ee eee eee eee eee (612) 929-6699°24 
PMS - Twin Cities, Minneapolis, MN .................-.2005. 612) 929-8966 
ABBS Compumart, Ottawa, Ontario, Canada......... mega (613) 725 2243 
BULLET-80 Ironton, OH.... 0.0.0... 0.0 ce cece cece eee cece ees (614) 532-6920 
Applecrackers, Columbus, OH.... 2.20000 eee (614) 475-9791°24 
Ohio Valley BBS ..........0..0 000 c ee cc cee cence eee ee enee (614) 423-4422 
RCP/M CBBS Columbus, OH ............. 0.0.00. ccc ee ces (614) 272-2227°24 
ABBS Computer Room, Kalamazoo, MI..................0.6.. (616) 382-0101 
AMIS G.R.A.S.S. Grand Rapids, M].............0 00.0.0 2 00000. (616) 241-1971°24 
CONNECTIONS-80 W. Mich. Micro Group, MI............... (616) 457-1840°24 
AMIS Starbase 12 Philadelphia, PA .....................00004. (617) 876-4885 
BULLET-80 Boston, MA .........0.0 000000 eee &(617) 266-7789°24 
CBBS BostoniMA sicie sw dcie ths sank daos4 Meee yetadeaweeatae (617) 646-3610°24 
CBBS Lawrence General Hospital, Boston, MA .............5.5. (617) 683-2119 
DIAL-YOUR-MATCH &18........... 00.000. 0 00 cee cee ee (617) 334-6369-s0 
PMS - Apple Guild, Weymouth, MA .........-. 00.0... c eee (617) 767-1303°24 
Computer City, Danvers, MA ........ cece cece eee eee ee eens (617) 774-7516 
New England COmp. Soc., Maynard, MA .........0.-. 05000000 (617) 897-0346 
RCPiM MCBBS Superbrain, Lexington, MA................ $&(617) 862-0781°24 
Visiboard, Wellesley, MA .........-..0- 0c ec ee ete e een eees (617) 235-5082 
NET-WORKS Granite City, IL... 0... ee een (618) 877-2904 
NET-WORKS Warlock’s Castle St. Louis, MO................. (618) 345-6638 
CONNECTION-S80 Escondido, CA...... 0.66. cece eee eee eee (619) 746-6265 
ONLINE CDC, San Diego, CA ... 2. cece cece cee (619) 452-6011 
ONLINE Saba, San Diego, CA...... 0. ce ene (619) 692-1961°24 
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ONLINE Santee, CA ........... [ID#GUEST, pswd-PASS]..... (619) 561-7271°24 

PMS - Computer Merchant, San Diego, CA ..............0005. (619) 582-9557 DATABASES 

PMS - Datel Systems Inc., San Diego, CA..... 2... 0. eee eee (619) 271-8613°24 : 

RCPIM RBBS San Diego, CA oo... ee cece eee ece cece eens $ &(619) 273-4354°24 Would you like to know about the latest ad- 

PMS = El: Gajon; GA iodttacve nce caaneld Ciao tt heweuriaaws (619) 579-0553 : “Vs 

PMS - Lakeside, CA (type PMS to activate).................08. (619) 561-7271°24 Vances that doctors have made against arthritis? Or 

PMS=-Gantees CAs 35 cabin hau neem eee #1(619) $61-7277°24 ; : : 

NET-WORKS Armadillo, ND .......0.060 0000 0e0ceevee seen. (701) 746-4959 find out how long it takes to fly to Chicago? What 

FORUM-80 Las Vegas, NV..... 0... tee eee (702) 362-3609°24 : ’ : 

SIGNON Reno, NV .......ccccceeeeesceeees [pswd-FREE].... .(702) 826-7234 about the addresses of all your competitors’ offices 

ABBS Software Sorcery, Herndon, VA....... 0.0.0.0 cece eens (703) 471-0610 1 1 1a? 

BBS IBM Hostcomm Fairfax, VA ..... 0c cece eee erences (703) 425-9452°24 In California: To get the answers to these and other 

BBS IBM Hostcomm Fairfax, VA .... 00.06 cece eee ees (703) 591-5120°24 obscure questions, Its not necessary to live or 

BBS IBM Hostcomm Fairfax, VA ......-..-2- 2-00 e eee eee eee (703) 978-0921°24 : 

BBS IBM Hostcomm Fairfax, VA 0.0.0.0... 0.0000e0eeeeeeee (703) 978-9592°24 work near a large reference library. 

BBS IBM Hostcomm Springfield, VA........00 6 cece eee e es (703) 425-7229°24 ‘ , , : ‘ 

C-HUG Bulletin Board, Fairfax: VAwsud ie oussstseeecccteuetn’ (703) 360-3812°24 All this information and more is available 

Carrier 2 Alexandria, VA ...... 0.00 ccc eee een ett ee (703) 823-5210 h h ‘ 4 

Potomac Micro Magic Inc., Falls Church, VA .....-..0.00 eee eee (703) 379-0303°24 throug computerized databases that are accessi- 

RCP/M CBBS RLP, MacLean, VA .........0.0-0200 cee eee eens (703) 524-2549°24 . , 

Switchboard, Alexandria, VA .....0...0 0602 (703) 765-2161°24 ble through computers with modems, which allow 

TCUG BBS, Washington, DC .......... 0... ce ees (703) 836-0384°24 : : : 

RCPIM RBBS Napa Valley, CA.......0.00c0c0ecceveeeeeeeeees (707) 2853-15237? communication across the country via phone lines. 

Armadillo Media Services, Houston, TX ......... 0.0.00. e eens (713) 444-7098 ' : : : : 

Compuque-80, Hotiston; DX ec eh ila Bang a etn (713) 444-7041°24 Indeed, just about everything that 1S available In 

PM BBS e602: dine Sos qunegnd tthe ota bans Ae Oatiatinaay eres Bink x (713) 441-4032 print 1S also available ona database. There are now 

RCP!IM RBBS Houston, TX .......... 0000 ees (713) 497-5433 : : i, 

Weekender, Houston, TX ...........0 0.0 ees (713) 492-8700 1300 public database S, available to anyone willing 

Zachary “Net, Houston, TX. wc. eid or ace cet eet poe eut ener (713) 933-7353°24 : 

IDBN Info-Net, Costa Mesa, CA ........0 0.00 eve cee eeee (714) 545-7359 to pay to use them, and at least 6000 private 

North Orange County Computer Club....................-5.. (714) 633-5240 ; . : 

OCTUG Orange County, Garden Grove, CA... 200. .00ces eee (714) 530-8226 databases maintained by colleges, trade associa- 

Orange County Dta Exchange, Garden Grove, CA............. (714) 537-793) ti d : 

PIG-STY Costa Mesa, CA... 0.000 cee (714) 545-4648 10NS, an companies. 

RACS Y Fillenion: CAs. jel ie es ee edo eens (714) 524-1228 : . 

RCP/IM RBBS ANAHUG, Anaheim, CA......-.-- 66. eee (714) 774-7860°24 Most databases provide abstracts of materials 

RCPIM RBBS GFRN Dta Exch. Garden Grove, CA ......... $& (714) 534-1547°24 : 7 

RCP/M RBBS Rochester NY .....0.0.00. 0000 cece eee e cece tenes (716) 223-1100°24 that have already been published elsewhere, usu 

ELT HONE T saewasrautid.cae ret wh canna te aeed ite: (800) 831-6964 ally ina journal, magazine, newspaper, or confer- 

ST80-CC Lance Micklus, Inc. Burlington, VT.#1 .......-....0. (802) 862-7023"24 . nat aoe 

Compusystems, Columbia, SC... -2 0+. 0-00 snes senses (903) 71-0922 ence proceeding. A few provide only citations, that 

NBB Orfolky VA coer ees Fd a Oe ERE eA 804) 444- : ; . 

RCPIM RBBS Grafton, VA.......0c0cecesceeseeeceeeceseeeees (804) 898-7493 is, the names of authors, the titles, and the publica- 

Remote Northstar Virginia Beach, VA .....0.. 0. cee cece eee (804) 340-5246 : . hi h : | H F 

Talk-80 ROBB, Portsmouth, VA......0.0-0000c0cece cece nent es (804) 484-9636 tions in which the articles appeared. However, it 

RCPIM Net Simi Valley, CA ..........0 0000000 c eee tenes (805) 527-9321 : . 

Remote Northstar Santa Barbara, CA... 2202 eee ee (805) 682-7876 has become increasingly popular for databases to 

Remote Northstar Santa Barbara, CA........0 200 0c ee cee nee (805) 964-4115 : : 

Alpha, Tampa, € io x gutsitee asus lacctw-ABCD00, pwd-TRYIT|(813) 251-4095°24 eta entire text of all articles. 

Apollo’s Chariot, Apollo, FL ......... 0... s eee eee eee eens (813) 645-3669 

BSBB Tampa, FL .........0 0 cece cee cence eee ete eee eee e sess (B13) 885-6187 greatest advantage to the ea of 

Bradley Computer BBS... ce0. ch sche ee eterd ee deed be eee aees (813) 734-7103 databases, aside from their ready availability 1S 

Micro-lnformer bovis) o25 fob ee we eee eG meds (813) 884-1506 oa as . : : 

Remote Northstar Largo, FL .......... 000.00 ccceee ence eeneens (13) 535-9341°24 their indexing and cross-referencing features. 

TECOM-80 Tampa, FL... ee eens (813) 839-6746 ; 

RCPIM CUG-NODE, PA State College ......00..0000eeeeeees (g14) 238-4857°24 | hese features enable you to conduct a rapid search 

TRADE-80 Erie PAvicit, cite ts fash dies Beas ae haves (814) 898-2952°24 h h h d f . F ‘ 

PET BBS KCPUG, Kansas City, KS..000000-0 2c ecco cece evens (16) 356238224 through thousands of periodicals and other infor- 

BBS P [ico hn eset Loic sah dieledden atic eee ha eaee ees (904) 477-8783 : . 

PMS cAuchoree BAO Din Kerinncs Sarees eh tn deca ata eee a! (907) 344-8558 mation sources, spanning whatever years you 

DIAL-YOUR-MATCH @3 2.00.0... 0. ccc ccc nena (912) 233-0863-so0 ; : “1: ; : 

PMS - Apple Bits, Kansas City, MO ............000cc eee ee ees (913) 341-3502°24 specify, and give you the capability of finding an 

PMS - Computer Connection Kansas City MO ............... (913) 677-1299 ‘ : : 

Experimental-80 Kansas City, MO...........--.0- ee ee eee ee (913) 676-3613 article based solely on the date of publication Or the 

METEWORRS: 810 2cxs cases Sy or Rasa Ree aS a eee eras (914) 725-4060 a 

NET-WORKS Pirate’s Lodge ........... 00 ccc ccc eee ce eens (914) 634-1268 author eS You can often search through free 

Nybbles-80 Elmsford, NY .......... 02. e cece tence ene etree (914) 592-5385 text —every word in an abstract or article—to de- 

OSUNA Scarsdale, NY. 0.0... cece teen nner ees (914) 725-4060 : P 

RACS #3, Westchester, NY ....c.cccccccceceeccetecueeeen ees (914) 942-2638 termine whether or not they contain the words you 

RCP/M RBBS Brewster, NY.............. 002 cee eect eee neces (914) 279-5693 . : . : 

RCP/M RBBS Woodstock, NY 0.0.00... 00ecceceeeeece teen ees (914) 679-8730°24 Specify. These features provide information- 

RCPIM SJBBS Bearsville, NY ....... 0.2.00. c cece cence ee teen eee (914) 679-6559-rb h : “a,° : : 

ST80-PBB Monrce Camera Shop, Monroe, NY ............555. (914) 782-7605 gat ering capabilities transcending those possible 
P/M RBBS Comp. Tech. Assoc., El Paso, TX ............005- 915) 533-2202°24 . vhs 

RCEIM RBBS El Paso, x idee 2c : is Bieta eects a Solin os 598-1668 or reasonable uSINg a traditional approach. 

HBBS:El'Paso;. TX eececacte ook Sawer te a ees oh sae ets (915) 592-1910 : : 

Aviators Bulletin Board, Sacramento, CA....--..0.ccceseeeeues (916) 393-4459 One disadvantage of databases is a lack of 

RCPIM. CBBS ys os.aoodicwi nd dteumeh Seah seve arniragees (916) 483-8718°24 : ; ‘ 

BULLET 40 Tulsa; OK ca anc sigotse cua erbcatenrnn meet (918) 749-0059°24 cae ae terms (each system has its 

CONNECTION-80 Tulsa, OK... 6.0.20 (918) 747-1310°24 1d1 . | 1 

DIAL-YOUR-MATCH #20 0.00.0... 0.0 ce cece cnet e ence e cues (919) 362-0676-s0 osyncracies) nother disadvantage is that they 

FORUM-80 Hull, England .......0..0..00cceceeseeee sees ee ee as (011) 44 482059169 may only be searched one at a time. 

RCP/M RBBS Software Tools, Australia ........... 0.0.00 ce aus (02) 997-1836 : : 

CBBS Londons England (European standard) ss. ere yaiaut ecco: (044) 1 399-2136 For a comprehensive review of over 1,000 


public database systems, consult the OMNI Online 
Database Directory, by Mike Edelhart and Owen 
Davies, MacMillian Publishing Co., 1983, and read 
the sampler of databases below. 


A sampler of information utilities. 


BRS/After Dark 

BRS, 1200 Rt. 7, Latham, NY 12110; (800) 833- 
4707. This service offers electronic mail, abstracts 
of books and magazine articles in science, finance, 
education, energy, and general reference. Hours: 6 
P.M. to midnight Monday through Friday, and all day 
Saturday and Sunday. Rates: $6 to $15 per hour, 
plus $50 subscription fee. 


CompuServe 

CompuServe, Consumer Information Service, 5000 
Arlington Center Blvd., P.O.Box 20212, Colum- 
bus, Ohio 43220; (800) 848-8199 or (614) 457-0802 


in Ohio. This service offers hundreds of databases 
for both the consumer and business markets, 


including news, entertainment, electronic mail, 
programming languages, and user groups. Hours: 
24 hours, 7 days. Rates $6 to $12.50 per hour, plus a 
subscription fee of $19.95 to $49.95, depending on 
where purchased. 


Delphi 

General Videotex Corp., 3 Blackstone St., Cam- 
bridge, MA 02139; (617) 491-3393. This 
consumer-oriented utility offers services and in- 
formation similar to those offered by The Source 
and CompuServe. Hours: 24 hours, 7 days. Rates: 
$6 to $17 per hour, and a subscription fee of $49.95. 


Dialog Information Retrieval Service 

Dialog Information Services, Inc., 3460 Hillview 
Ave., Palo Alto, CA 94304; (800) 227-1927, or 
(800) 982-5838. This service offers a large collec- 
tion of databases about business, government, cur- 
rent affairs, and the environment, among others. 
Hours: 22 hours, Monday through Saturday. Rates: 
$15 to $300 per hour, with no minimum. 


Dow Jones News/Retrieval 
Dow Jones and Company, P.O. Box 300, Princeton, 


NJ 08540; (800) 257-5114. This business-oriented 
service provides detailed financial information, in- 
cluding current and historical quotations from major 
stock exchanges, commodities prices, media gen- 
eral reports, and financial disclosure details on 
thousands of American corporations. Hours: 22 
hours, 7 days. Rates: $6 to $72 per hour, plus 
subscription fees ranging from a one-time $50 to 
$50 per month. 


ITT Dialcom 

ITT Dialcom Inc., 1109 Spring St., Silver Spring, 
MD 20910; (301) 588-1572. This service offers a 
variety of data bases with information about 
medicine, government, energy, and travel, as well 
as electronic mail. Hours: 24 hours, 7 days. Rates: 
$11 to $15 per hour, with a $100 per month 
minimum. 


Knowledge Index 

Dialog Information Services Inc., 3460 Hillview 
Ave., Palo Alto, CA 94304; (800) 528-6050, ext. 
415 or (800) 227-1927. This service offers a subset 
of Dialog’s more consumer-oriented databases, 1n- 
cluding business, engineering, psychology, 
magazines and computer information. Hours: 6 
P.M. to 5 A.M. Monday through Thursday; 6 P.M. to 
midnight Friday; 8 A.M. to midnight Saturday; and 3 
P.M. to midnight Sunday. Rates: $24 per hour, $35 
subscription fee. 


NewsNet 

NewsNet, 945 Haverford Rd., Bryn Mawr, PA 
19010; (800) 345-1301 or (215) 527-8030. This ser- 
vice offers the full text of over 100 newsletters ona 
variety of subjects, plus electronic mail connections 
with the newsletter publishers. Hours: 24 hours, 7 
days. Rates: $18 to $24 per hour, with a $15 per 
month minimum. 


Nite-Line 

National Computer Network, 1929 Harlem Ave., 
Chicago, IL 60635; (312) 622-6666. This service 
offers financial and business databases. Hours: 24 
hours, 7 days a week. Rates: $9 to $20 per hour. 
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Orbit Information Retrieval System 

SDC Information Services, 2500 Colorado Ave., 
Santa Monica, CA 90406; (800) 421-7229 or (800) 
352-6689. This service offers reference databases 
covering business, chemistry, engineering, elec- 
tronics, and other fields. Hours: 22 hours, Monday 
through Friday. Rates: $40 to $125 per hour, witha 
start-up fee of $125 to $400, depending on the 
training requested. 
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The Source 

Source Telecomputing Corp., 1616 Anderson 
Road, McLean, VA 22102; (800) 336-3366. This 
service is a large general-interest utility offering 
consumer information, electronic mail and con- 
ferencing, programming languages, and other ser- 
vices. Hours: 22 hours, 7 days. Rates: $5.75 to 
$22.75 per hour, plus a $100 subscription fee and a 
$10 per month minimum. 
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Utility Programs 


Although your computer system may not offer many 
of the useful features of larger systems, software 
can often be written to simulate many of these 
features. Such software is often referred to as utility 
programs. The category of utility programs also in- 
cludes commonly-used routines or subprograms 
that can be incorporated in a larger program. 
Through the use of utility programs, your personal 
computer can emulate its big brothers. 


MULTIPURPOSE PROGRAMS 


Although some computer systems provide the 
features found below, others don’t. The person who 
develops programs to perform these and other util- 
ity functions will often have a readily salable pro- 
duct. 


e Diagnostic programs: programs that test all of 
the statements and commands found in given 
BASIC are useful in determining whether or not 
BASIC has loaded properly for execution. Pro- 
grams to test memory by filling and reading all 
locations are also helpful. 


¢ Memory-map programs: a machine-language 
program to output a memory map would be valu- 
able. 

¢ Menu selection programs: a machine-language 

routine to automatically find and execute any 

programs that are on line would make life easier 
for some operators. 

Routines for improved data file handling for 

floppy disks or cassettes are needed for some 

computers. 

e Machine language programs that automatically 
convert one cassette/floppy disk standard to 
another are needed by a number of people. 

¢ Variable list programs: a program to output the 
current value and location for all variables used in 
a program would be useful in large-program de- 
bugging. 


¢ Renumber or resequence programs: a program to 


remember the statements in an assembly lan- 
guage program or BASIC program would be a 
convenient tool for programmers. 


e Base conversion programs: this kind of program 


is useful in assembly language programming. 
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BASIC patches that allow commands such as 
INKEY$ or GET, which permit program inputs 
without the pressing of the ENTER or RETURN 
key and can limit the time allowed for a response. 
Vector graphic assembly language routines could 
be useful. 

Cross-assemblers or conversion programs be- 
tween languages such as BASIC, FORTRAN, 
and APL would be a boon for programmers. 
Routines for handling fractions instead of deci- 
mals for greater precision in certain applications 
could be created. 

Specialized compilers for BASIC: although writ- 
Ing a complete BASIC compiler would be dif- 
ficult, specialized compilers could be written to 
handle string, mathematical, or sorting func- 
tions. The advantage is the tenfold or more in- 
crease In execution speed. 

BASIC patches to provide increased debugging 
power could include error simulation routines to 
test a program (ERROR(code) and ON ERROR 
GOTO commands), TRACE commands to output 
a listing of each line number as it 1s executed, and 
powerful editing functions. 

Memory routines: relocating memory loaders, 
which could be written in extended BASIC, could 
combine two programs, add machine language 
calls, and so on. A memory dump program could 
be provided to output programs in a variety of 
formats (decimal, hexadecimal, octal, and so on). 
A memory search program could be used to iden- 
tify all occurrences of a specific byte value be- 
tween any starting and ending addresses; sucha 
program would be useful in disassembling and 
debugging. 

AUTO command: the AUTO command automati- 
cally provides line numbers when a program is 
being typed in. 

PLOT command: the PLOT command is useful in 
automatically displaying the values of a function 
or given set of data in graphical form. 
Multiple-precision routines: the scientific user of 
small computers (and some business users) 
needs multiple-precision capability. 


In addition, a useful reference manual that in- 
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cluded commonly used BASIC or assembly- 
language routines would simplify programming for 


the 


beginner. 


UTILITY SUBROUTINES 


Below are some practical routines that deal 


with matrices and string manipulation 


Matrix and String Utility Routines 


LOO 
110 
120 
130 


210 


REM MATRIX ADDITION 3-D 
FOR T=1 TO NI 

FOR J=1 TO N2 

FOR K=1 TO N3 

COS DEA TSB ID 
NEXT K 

NEXT J 

NEXT I 

RETURN 


REM MATRIX TRANSPOSITION 2-D 
FOR T=1 TO Nl 

FOR J=l TO N2 

B( J: FySNCI ad) 

NEXT J 


INERT 1 


RETURN 


REM MATRIX MULTIPLICATION BY ONE VARIABLE 


FOR I=1 TO N3 

FOR J=1 TO N2 

FOR K=1 TO Nl 
B(K,J,1)=A(K,J,10)*X 
NEXT K,J,1 

RETURN 


REM MATRIX INPUT ROUTINE 3-D 
FOR I=1 TO NI 
PRINT’ PAGE"; I 

FOR del -fO NZ 
PRINT’ INPUT ROW" J 
FOR K=1 TO N3 
INPUT X(1I,J,K) 
NEXT K,J 

PRINT 

NEXT LI 

RETURN 


100 REM MATRIX INPUT SUBROUTINE(TWO here, the Quicksort is the most efficient although it 


DIMENSION ) requires more BASIC program lines than some of 
110 FOR H=1 TO N the other sorts require. The Bubble sort is the least 
120 PRINT"ENTER ROW"':H efficient: 
130 FOR I=1 TO N1 
140 INPUT X(H,1) 
150 NEXT I,H Sorting Routines 
160 RETURN 
POORER TABROVED FORE SORT ROUT TIME 
a od 
1 FOF Ned TO 10 
100 REM MATRIX PRINT SUBROUTINE 3-D CO TNFUT @oN) 
110 FOR T=1 TO Nl 20 AE XT 
120° FOR J=1 TO N2 110 Csairn=M- 1 
130 FOR K=1 TO N3 120 TF Ned GOTO Bao 
140 PRINT X(1,J,K), iso FOR Tei Ta W 
150 NEXT K 140 LF Atl =A T+1> THEN 1380 
160 PRINT tek: Tae 
170 NEXT J 160 Act p=Ac T+.) 
180 PRINT PO ACI4+152T 
190 NEXT I 17S C=] 
200 PRINT Leo NEXT I 
210 RETURN READY 190 IF C=1 THEN 119 
200 FOR Ne TO 14 
S40 PRINT Achy s 
200 REM MATRIX READ FROM DATA STATEMENTS IN matte IEA 
3-D 
210 FOR I=1 TO Nl 
220 FOR J=l1 TO N2 
330 FOR Kel TO N2 100 REM BUBBLE SORTING ROUTINE 
240 READ X(J,K,I) L1LO FOR: Pak TO N= 
250 NEXT K,J,1 120 FOR J=I+1 TON 
260 RETURN 130 IF ACI)<=ACJ)THEN 170 
270 DATA:REM DATA INSERTED HERE ISO. Te ACT) 
150 ACL)=ACJ) 
160. ACJ )=T 


L7O NEXT ad 
OO REM MAT=ZER MATRIX SET TO ZERO SUBROUTIN 180 NEXT I 


E 3-D 
110 FOR I=1 TO Nl 
120 FORJ=1 TO N2 


130 FORK=1 TO N3 50 PRINT "“ALPHABETIZING PROGRAM" 

140 X(K,J,1)=0 60 REM OUTPUTS LISTING ONLY (DOESN; T REAR- 
L50: NEXT. KyJ31 RANGE MEMORY ) 

160 RETURN 110 DIM A$(100) ,N$( 100) 


120 FOR N=1 TO 1000 
130 INPUT "WORD";NS(N) 
140 IF N$(N)="STOP" THEN 160 


1000 REM INSTRING SUBROUTINE 150 NEXT N 
1010 FOR I=] TO LEN(X$)-LEN(Y$)+1 160 REM 
1020 IF Y$=MID$(X$,I1,LEN(Y$)) THEN RETURN L7OUBOR Tal. LO" 
1025 PRINT Y$ 180 A$(1)=NS(T) 
1030 NEXT I 190 NEXT I 
1040 RETURN 195 K=0 

200 I=] 


21 FOR ez TON 
. . . . 220 IF AS(1)<AS(J) THEN GOTO 230 
Among the different sorting routines listed 225 T=J 


225 


230 NEXT J 5 REM GUICKSORT 
240 IF N$(I)="STOP" THEN 250 6 REM HehUMBER OF DATA ELEMEWTS IM D3 
245 PRINT NS$(I) C Bele 
250 AS( I ) "779" I a eet ae. oe mo Te pos pe Tbe sch) oo + } 
eee 26 IF =f THEM RETF 
070 IF KAN THEN 280 25 oe GOTO 178 

Pe). eee ean pee i toe Oe pees, hee 
i Soe een 44 28TCAo TR=p BleB+1 

NT: SA BlSEL-2 

290 END my TE BleTp 4. 4de 

me OTF BisTR THEM i128 

TQ IF 2S=D0B1) THEM 5a 
5 REM SHELL-METZNER SORT Va a arnt Be DE eh Trees! 
10 P=N:REM N=NUMBER OF DATA ELEMENTS IN D() GE TPs Tet Jn uae 
20 P=INT(P/2) ee cae 
30 TE PO THEN RETURNEREMARRAY NOW SORTEDS: 0 FS tet cham ae 
RETURN TO MAIN PROGRAM Ges ee ees mee 
40 K=N-P:J=1 120 IF BeTPo=se THEM leMee Sc 1419=TR+1- 
50 I=-J ere ie oy ry a aan 
60 L=I+P [S80 IF Bl-Ab=2 THEM T= 8+8  S¢1+] 2A eet] 
70 IF D(I)<D(L) THEN 100 Se [+= Bl] 
80 T=D(1):D(1)=D(L):D(L)=T: I=I-P 140 PeP+1 GOTOes 
90 IF Id=1 THEN 60 LS OPO eel Oe ees keg ET 
100 J=J4] TEE GO SLES 
110 IF Jeek THEN 50 17e@ FOR X=. TO S°PRIMT Desay NEST 
120 IF J>K THEN 20 
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Chapter 11 


Miscellaneous Applications 


There are a number of applications that don’t fit 
easily in the categories already covered. These 
applications will be discussed in this final chapter. 


COMPUTERS AND THE HUMANITIES 


Amateur as well as professional scholars of 
history, language, literature, anthropology, ar- 
cheology, and other fields of the humanities may 
find personal computers useful in storing, organiz- 
ing, analyzing, and indexing data. 


History 


The historian may wish to encode information 
of the following types for use with computers: 


1. Census records 

Congressional voting records 

Election statistics 

Court records and decisions 

. Ship sailing records—historical, ge- 
neological, and economic significance. 

6. Diplomatic records 

7. Journalism statistics. A school of jour- 


Oe Wh 


nalism has used a personal computer to 
record and plot the ratios of column inches 
devoted to various political parties or can- 
didates in fifteen major national newspa- 
pers, under the assumption that the amount 
of text space allotted to a candidate or party 
reflects the paper’s views. You or your or- 
ganization may wish to pursue similar lines 
of research. 


Language 

The microcomputer can be used to deal with 
languages in at least two ways. 

Translations. It is possible to program a per- 
sonal computer to act as a crude translating 
machine, capable of recognizing foreign vocabulary 
words and providing the English equivalent. Sen- 
tence structure and overall meaning are much more 
difficult to program, however, and are a current 
area of research in computer science. The pocket 
translating machines and spelling-checker pro- 
grams available today may serve as models for such 
a program, which may provide an interpretable En- 
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glish equivalent to a given foreign phrase. For 
example, if provided with the Spanish phrase, 
“Mucho gusto en conocerlo” (Pleased to meet you), 
the literal computer translation may read, “Very 
much in to meet you.” A more sophisticated pro- 
gram could check for idiomatic expressions such as 
this and provide a better translation. A translating 
program may prove to be educational and useful to 
those with a minimum of familiarity with a lan- 
guage. 

Compilation of dictionaries. The dialects 
and languages of a speech community can be en- 
tered into a computer database for ease in compiling 
a dictionary. 


Literature and Writing 

There are a number of ways 1n which you can 
use your personal computer to help you in your 
writing and in analyzing literature. 

Auto-editor. A personal computer program 
capable of performing basic editing functions has 
been developed. The program balks at overly long 
sentences, or stilted, cumbersome expressions and 
suggests alternatives. For instance, it will suggest 
“absolutely” for ‘‘categorically,”” and “by” or 
“under” instead of “in accordance with.” It pro- 
poses “now” instead of “at this point in time.” It can 
detect spelling errors, improper punctuation, split 
infinitives, and other common grammatical errors. 

Thesaurus. An on-line thesaurus can provide 
rapid, time-saving access to alternative word 
choices. This feature, in conjunction with a word 
processor, can serve as a powerful writing tool. 

Automatic table of contents/index gen- 
eration. In preparing a text on a word processor, 
the author need only flag with a special code the 
keywords to be indexed or the chapter headings for 
the table of contents. The computer will compile 
and alphabetize these entries in desired form. 

Writer’s outline utility. A specialized word 
processor with database capabilities could assist 
the writer in preparing outlines. 

Spelling checker. Numerous spelling 
checker programs are available for personal com- 
puters. These are capable of checking documents 
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for errors on the basis of 30,000-90,000 stored 
words. The user has the option of adding or deleting 
words, and special dictionaries are available (for 
example, medical terms). 

Analysis of literature. Computers can be 
used to prepare statistical analyses of literature 
that you have typed using your word processor. 
Such a program would calculate the number of lines, 
number of sentences, number of words, number of 
syllables, average word length, average sentence 
length, and the reading level based upon any of the 
standard formulas developed by Flesch, Fog, 
Raygor, Dale Chall, or Spache. For instance, the 
Fog index (F1) is given by 


total no. no. “hard” 
words words x 100 

Fl = Si ee 
total no. total no. words 
sentences 


where “hard” words are considered to be those 
words with three or more syllables, except proper 
names, compounds of short words (for example, 
down-and-out), and words in which the third sylla- 
ble ends in es or ed (for example, arrested). If the 
value of FI is 20 or more, you should consider the 
reading level advanced or difficult. To ensure that 
your message gets across to the masses, aim for a 
FI of around 10. A concordance table, listing all 
words used and their absolute or relative frequency 
of use can also be constructed; the list can be sorted 
alphabetically or by frequency. See Microcomput- 
ing, page 60, June 1981 for a sample BASIC pro- 
gram. Word-class distribution statistics, measures 
of redundancy of vocabulary (averages, medians, 
and so on), numbers of modifiers, adverb/verb and 
auxiliary verb/verb ratios, clause length statistics, 
distribution of clause types (simple, compound 
subject, and so on), distribution of sentence open- 
ers (prepositional phrase, subordinated clause, and 
soon), and style of sentence structure could also be 
analyzed by a more complex program. 

Along similar lines, computers have been used 
to statistically determine whether works of indefi- 
nite authorship are typical of a given writer (for 


example works by Bacon and Shakespeare are com- 
pared), since the above statistical parameters tend 
to remain constant for one writer and may be com- 
pared with the figures for other writers. 

Literature Database. A specialized data- 
base could store important manuscripts and be used 
to index, cross reference, and find given keywords 
or phrases quickly. QWIK-Indexes™ may also be 
generated. 


AID TO THE HANDICAPPED 


Use of microcomputers as aids to the hand- 
icapped is a very important and useful application; 
only the forefront has been explored, and the po- 
tential is tremendous. Examples of this application 
include the following: 

The computer can act as a “robot” for the 
handicapped. One system was used bv a paraplegic 
to communicate with others; the computer scanned 
the alphabet and once a particular letter was 
reached, the patient would make a certain move- 
ment to signal that that letter was to be typed out. In 
this manner, words and sentences were produced. 

Voice synthesizers and decoders are espe- 
cially helpful for those who cannot interact with a 
computer through a video terminal. 

A computer with a printer (either dot matrix or 
daisy-wheel type) could be used to convert inputted 
text into braille. Each line of text would be reversed 
in computer memory and the braille equivalent 
(composed of periods or dots) printed in its mirror 
image. By turning over the output, the impressions 
left by the printer will form braille text. 

The personal computer could be used to 
monitor people who are chronically ill, are predis- 
posed to suffer heart attacks, or are in other life 
threatening situations. Twice a day the patient 
would be required to input something into their 
computer; if they don’t, medical personnel would 
be alerted by telephone dialing and vocal output 
peripherals. 

Other areas in which the microcomputer can 
help the handicap include the following: 


e Sensory enhancement or translation: clarification 
of audio or visual information or translation of 


video information to and from audio information. 

e Manipulator controls: powered prostheses or 
robots for individuals with severe motor impair- 
ment. 

e Information amplification for the motion 1m- 
paired: increase the amount of information that 
can be relayed with a given number of key- 
strokes, for example, a shorthand translator, as 
described in the first chapter. 

® Recreation and development aids: games and 
educational programs allowing handicapped per- 
sons a reliable means to control, explore, and 
manipulate objects or learn about them. 

* Communication aids: telephone dialers, com- 
puter-alded writing and filing systems, and phone 
communication through the use of speech syn- 
thesizers, for example. 

e Security/monitoring systems: mechanisms for 
controlling locks and windows, emergency call 
systems, medication reminders, and monitoring 
systems that will periodically demand a response 
and signal if the individual fails to answer its 
queries. 

® Information resource/management: inability to 
quickly manipulate and scan materials may pre- 
vent the handicapped from making effective use 
of dictionaries, phone lists, calendars, filing 
systems, and books. These functions can be par- 
alleled through the use of specifically designed 
microcomputer-based interfaces that work with 
residual physical and sensory capabilities. 


TEST YOUR TYPING SPEED 


Those learning to type will appreciate a mea- 
surement of their progress in speed. A program to 
test typing speed would have to be written in as- 
sembly language if your BASIC doesn’t provide 
INKEY$, GET, ENTER (or RETURN) or WAIT 
type commands. 


MAINTENANCE OF 
ORGANIZATION RECORDS 


Clubs and other organizations may find it 
worthwhile to purchase or use a member’s small 
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computer to ease paperwork. Anyone who develops 
software for this application may be able to sell it to 
local organizations or charge for computing ser- 
vices done on his own computer. 


CO-OP SCHEDULING AND FINANCES 


A computer analysis of costs and duties could 
help divide these responsibilities fairly between 
members of communal residence or cooperative 
organizations. A duty roster in calendar form as 
well as a financial summary of amounts owed could 
then be printed out. 


TAILOR’S CALCULATIONS 


Alterations to dress, suit, and other patterns 
for “tailor-made” clothing could be mathematically 
determined by your computer. If you have a printer 
with a line length large enough, the altered pattern 
could be printed in actual size. 


PHONE CODE 


A relatively simple program could be written 
to produce a listing of all the possible letter combi- 
nations on the phone dial for a given phone number. 
Businessmen may use this listing to find an appro- 
priate, easy-to-remember word representing their 
phone number (for example, a computer store 
number was 266-7883 and COMPUTE was the cor- 
responding telephone word). An interesting word 
may appear for you to use with your home phone. 


BRAINSTORMER 


A few years ago, a large sphere containing 
thousands of plastic squares with a different word 
printed on each was sold as a “brainstormer.” The 
idea behind the device was to rotate the sphere, m1x 
up the words, and then peek through a window at 
whatever words appeared. From this combination 
of adjectives and nouns, the user was to come up 
with a new invention or idea. The “brainstormer” 
could be useful in stimulating ideas; for instance, if 
the words television and game appeared, a properly 
prepared mind could have made the intuitive leap to 
invent video games. You could create your own 
computerized “brainstormer” by programming a 
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large array of nouns and adjectives with a random 
number generator that calls them to the video 
screen 5-10 at a time. 

A similar program could be called an “idea 
stimulator.”’ Instead of miscellaneous words ran- 
domly appearing, a special set of adjectives or 
phrases describing possible improvements to an 
invention would appear individually and in random 
order on the screen. For instance, if you were 
trying to invent a new type of cooking pot and the 
word slower appeared, the brainstormed idea might 
be a slow crockpot cooker. The list of brainstorm- 
ing questions below could be randomly arranged by 
your computer and individually called to the screen. 

Brainstormer programs needn't be limited to 
products and inventions. Choreographer Merce 
Cunningham, Mozart, Oscar Wilde, and cartoonist 
Sergio Alverez, among others in the arts, have 
reported using similar random methods as an ap- 
proach to artistic creation. One cartoonist reports 
use of acomputer program to randomly mix cliches, 
locations, props, and various character types for 
possible cartoon ideas. 


Brainstorm Chart for 
Products, Processes, or Services 


In what other way can it be made more effec- 
tive? 

Is there a surer way to do it? 

Is there a cleaner, neater way to do it? 

Is there a more comfortable way to do it? 

Is there a more healthful way to do it? 

Is there a safer way to do it? 

Is there a more durable form? 

Is there a more pleasant way to do it? 

Is there a quicker way to do it? 

Is there an easier way to do it? 

In what other way can it be improved? 

Can the package be improved? 

Can the distribution methods be improved? 

Can it be made disposable or portable? 

Can a combination with other devices be de- 
vised. 

Can something be added to enhance its value? 

Can it be adapted to some other use? 


Is there a way to increase its usefulness; can It 
become multipurposed? 

Can it be made more attractive? 

Is there a cheaper way to do It? 

Can a similar result be obtained in any other 
way? 


large list of “idea words” are shuffled and displayed 
three at one time. The object 1s to apply your 
thinking to these words 1n relation to another idea. 
For example, if you had to design a new product, 
such as a cigarette lighter, and the word disposable 
appeared, the idea of a disposable lighter would 


come to you. 


Inventor’s Idea Stimulator 
The program in Listing 11-1 can be very useful SOURCE INDEX 


to those who have a creative and intuitive mind. A 


Listing 11-1: The Inventor's Idea Stimulator Program 
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PRINT 


"INVENTOR'S IDEA STIMULATOR" 


DIM A$(98) ,MC98) 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


FOR X= 
N=98: 
M(I)= 


"THE PURPOSE OF THIS PROGRAM IS TO STIM-" 
"ULATE YOUR CREATIVE THINKING WHEN WORK-"! 
"ING ON AN INVENTION OR PRODUCT. " 

"A SERIES OF THREE WORDS WILL BE PRINTED" 
"FOR YOU TO CAREFULLY CONSIDER. TRY TO" 
"APPLY THEM TO YOUR INVENTIVE PROCESS." 
"FOR EXAMPLE IF YOU WERE TRYING TO DE-" 
"VELOP A PRODUCT TO IMPROVE OFFICE" 
"COMMUNICATIONS AND THE WORD 'EFFICIENT'" 
"APPEARED, YOU MIGHT THINK OF A" 
"DICTATING MACHINE, ETC.":INPUT "PRESS 'RETURN' WHEN READY"; A$ 
1 TO 96:READ A$(X):NEXT X 

FORT=1 TON 

LS NEAL 


FOR [=1 TO N-1 
R=(N+1-[)*RND(O) 
R=INTC(R) +1 
T=M(R) 


M(R)= 
MCT )= 


NEXT 


M(T) 
T 
lt 


PRINT "PRESS 'RETURN' WHEN FINISHED WITH EACH" 


PRIN 
FOR 
PRIN 
PRIN 
PRIN 


T "WORD SET" 
Malt: 33 STEPS 
T A$(M(X)) 

T AS(M(X+#1)) 

T A$(M(X+2) ) 


INPUT B$ 


NEXT 
END 
DATA 


X 


LARGER, SMALLER , LONGER , SHORTER , THICKER , THINNER , DEEPER , SHALLOWER 


STAND VERTICALLY/HORIZONTALLY,MAKE SLANTED OR PARALLEL 


DATA 
DATA 
DATA 
DATA 


330 DATA 


DATA 
DATA 
DATA 


STRATIFY , INVERT , CONVERGE, ENCIRCLE, INTERVENE , DELINEATE , BORDER 
MORE,LESS,CHANGE PROPORTIONS , FRACTIONATE, JOIN SOMETHING 

ADD SOMETHING ,COMBINE,COMPLETE ,CHANGE ARRANGEMENT , FASTER 
SLOWER , LAST LONGER , CHRONOLOGIZE ,MAKE PERPETUAL ,SYNCHRONIZE 
RENEWABLE, ALTERNATING , STIMULATED, ENERGIZED , STRENGTHENED 

LOUDER , LESS NOISE,COUNTERACT ING ,STRONGER , WEAKER , ALTERED 

CONVERTABLE ,SUBSTITUTED , INTERCHANGED ,STABILI IZED, REVERSED, RESTLTENT 
UNIFORM, CHEAPER ,ADD/CHANGE COLOR, IRREGULAR DESIGN 


Addresses of manufacturers, institutions, or- 


350 
355 
360 
365 
370 
eae) 
380 
385 
390 
395 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA DISPOSEABLE 


CURVED DESIGN ,MODERN DESIGN ,HARDER,SOFTER ,SYMMETRICAL , NOTCHED 
ROUGHER , SMOOTHER , DAMAGE AVOIDED,DELAYS AVOIDED 

THEFT AVOIDED ,ACCIDENTS PREVENTED ,CONFORMABILITY , ANIMATED 
STILLED,DIRECTED MOTION ,ATTRACTED/REPELLED MOTION , LOWERED 

BARRED ,OSCILLATED , AGITATED, HOTTER , COLDER ,OPENABLE, PREFORMED 
INCORPORATED , SOLIDIFIED ,LIQUIFIED , VAPORIZED 

PULVERIZED , ABRADED, LUBRICATED, WETTER, DRYER, INSULATED, EFFERVESCED 
COAGULATED , ELASTICIZED , RESISTANT , LIGHTER , HEAVIER 

FOR MEN/WOMEN/CHILDREN ,FOR ELDERLY/HANDICAPPED, FOREIGN MARKETING 


ganizations, and other sources of information or 
products can be stored in computer form and in- 
dexed for future reference. Any source of informa- 
tion or materials that you don’t have use for at 
present, yet know you may need in the future, 
should be stored (for example, manufacturers and 
suppliers of peripherals for your system). These 
sources can be indexed under the material they can 
provide. 


PEOPLE MATCHING 


At a party or other social gathering it is often 
best to make arrangements so that those who are 
most similar will meet each other. Recently at a 
convention, a microcomputer was used to create 
special name cards for each guest. Everyone who 
attended had previously filled out a questionnaire 
indicating his or her occupation, hobbies, age, sex, 
likes and dislikes, and so on. This data was input to 
the computer, which subsequently produced a spe- 
cial name card with differently colored dots on it for 
each individual. Each color indicated a specific 
characteristic of that person, and thus, the guests 
could instantly find others who had the same color 
dots and thus the characteristics as themselves. 

Computers have prepared seating charts for 
dinners, arranged blind dates, matched carpools, 
and paired athletes according to individual charac- 
teristics (partner or opponent matching). A bulletin 
board service for modem owners called Dial- 
Your-Match (213) 842-3322 allows computer dating 
for the would-be romantic. 

An interesting people matching game would 
ask participants to rank their ideals. The list of 
common ideals below could be used for that pur- 
pose. 
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1. Active and satisfying life 

2. Active and satisfying athletic life 

3. Power over things (for example, au- 
tomobiles, boats, and computers) 

4. Socially significant activity 

9. Good health 

6. Opportunities for risk and adventure 

7. Resilience (ability to “bounce-back”’) 

8. Prestigious family life 

9. Artistic ability 

Ability to initiate and maintain friendships 

11. Intellectual ability 

. Ability to draw love from others 

. Ability to influence others with your ideas 

. Ability to be a caring person 

. Ability to give love 

. Close and supportive relationships 

. Intellectual stimulation 

. Approval by opposite sex 

. Wealth 

Ability to be self-sufficient 

. Physical attractiveness 


Each participant could rank each item in terms 
of its importance to him or her. Next, everyone 
would be allotted a certain number of tokens to use 
in bidding for the items of the most importance to 
themselves. Participants will realize what is of the 
most significance in their life and that of others. 


Similarly two or more players could rank 1) 
what I think I am, 2) what the other player thinks I 
am, and 3) what the other player thinks I think I am 
(and 2 and 3 for the other player) for these charac- 
teristics: aggressive, dependent, enthusiastic, in- 
telligent, honest, humorous, jealous, kind, rude, 
sensitive, sensual, and sociable. The personal 


computer would then compare and correlate re- 
sponses in a useful, insightful way. 

On amore personal basis, programs have been 
written to first determine the “personality” makeup 
of a couple and then suggest an appropriate “inter- 
lude.” This is wot a children’s game and Is an appli- 
cation to be used at your own risk. 

Along similar lines, your local organization or 
business could use a computer car-pool matching 
program if there are many people involved. 


GREETING CARD PRODUCER 


Some clever hobbyists have written programs 
to produce assorted types of greeting cards, an- 
nouncements, and invitations on their printers. One 
example is shown in Fig. 11-1. The cards can be 
personalized and can make use of computer art. One 
hobbyist uses his computer and printer to produce 
Christmas gift wrapping paper by printing designs 
of Christmas trees, snowflakes, and other patterns. 


CONTESTS 


For those who take sweepstakes seriously, a 


personal computer can be used to fill out multiple 
contest entry forms with name, address, and addi- 
tional information required. One group of com- 
puterists entered a large national contest a few 
years ago, using a computer to print 10,000 entry 
forms; they won over 90% of the prizes. Asaresult, 
many contests now require hand-printed entry 
forms. However, peripherals are now available that 
can duplicate your handwriting or signature using a 
programmable “mechanical writing arm.” Technol- 
ogy marches onward. 


HANDWRITING ANALYSIS 


Many major corporations are now using hand- 
writing analysis as one instrument to evaluate 
prospective employees, although its usefulness 
remains controversial. The gaudy carnival “‘hand- 
writing analysis computers” do litte more than 
printout a random evaluation, as handwriting 
analysis is still on the cutting edge of computer 
science. However, a relatively simple program 
could printout the standard interpretations for 
handwriting characteristics after these have been 


MERRY 
MERRY CHRI 
MERRYCHRISTMA 
MERRYCHRISTMASMER 
MERRY CHRISTMASMERRYCH 
MERRYCHRISTMA 
MERRYCHRISTMASMER 
MERRY CHRISTMASMERRYCH 
MERRYCHRISTMASMERRYCHRIST 
MERRY CHRISTMASMERRYCHRISTMASM 
MERRY CHRIS TMASMERRYCHRISTMASMERRY 
MERRYCHRISTMASMER 
MERRYCHRISTMASMERRCH 
MERRYCHRISTMASMERRYCHRIST 
MERRY CHRSITMASMERRYCHRISTMASM 
MERRY CHRISTMASMERRYCHRIS TMASMERRY 
MERRYCHRISTMASMERRYCHRISTMASMERRYCHRIS 
MERRY CHRIS TMASMERRYCHRISTMASMERRYCHRISTMA 
MERRYCHRISTMASMERRYCHRISTMASMERRY CHRIS TMASMER 
MERRY 
MERRY 
MERRY 
MERRY 


Fig. 11-1. A computer generated greeting card. 
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encoded by an expert. Such a program could elimi- 
nate the drudgery of writing an explanation for each 
characteristic and could check for conflicting or 
concording results. 


FIFTY MISCELLANEOUS APPLICATIONS 


To further exemplify the scope of applications 
of personal computers in all walks of life, I have 
listed some of the more unusual uses readers have 
contributed: 


e Design and animation of marching band patterns. 

e Maintenance and inventory of equipment and in- 
struments in small laboratories. 

e Membership tracking for small organizations 
with the addition of dues accounting, question- 
naire analysis, and mailing list capabilities. 

e TV pattern generator for electronic technicians. 

e Artistic pacifier for toddlers based on random 
graphical patterns, as a form of the stimulation 
necessary for the development of a normal IQ. 

e Banner and sign generator to prominently display 
your message, created on ordinary lineprinters. 

e Posters and calendars from lineprinter output. 

¢ Translations of foreign words done by portable 
computers for travelers (or for educational pur- 
poses). 

e Analysis of the cost-saving benefits of various 
solar collector designs. 

® Calculation of home improvement costs by de- 
termining gallons of paint, rolls of wallpaper, or 
square yards of carpeting for a given job. 

e Car maintenance reminder for routine tuneups 
and parts replacement according to miles driven. 

e Car pool record keeping program which records 
car usage by driver, destination, and date with 
the ability to print schedules for each member. 

e Bendo Kagawa, a Zen priest in Japan, uses his 
personal computer to help people meditate. 

e Bob Waltz’s personal computer at Smithers- 
Oasis can tell you all you ever wanted to know 
about germanium growing. 


e Three Harvard professors writing a physiology 
text use their personal computers to exchange 
chapters by phone. 
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e Edward Adler arranged for his computer to rock 
his baby’s cradle every time she cried. 

e Architects can sketch new designs on personal 
computers that rival design systems formerly 
costing in the millions. 

e For training purposes, companies are now using 
personal computers to instruct employees in ev- 
erything from advanced optics to photocopier re- 
pair. 

e A psychologist is using his computer to teach 
people self-relaxation techniques and self- 
hypnosis. 

e Earth, Wind, and Fire use a computer to set off 
flash pots and explode small bombs on stage dur- 
ing their pyrotechnic rock performances. 

e A German firm is using a personal computer to 
create new sweater patterns. 

e Daryl Faud’s personal computer sifts through 
hundreds of bacterial strains to assist in recom- 
binant DNA experiments. 

e Dr. Terry Pundiak uses a voice interface with his 
computer to give antismoking lectures. 

e Experimental systems that are being developed 
to read ordinary text to the blind are based on 
personal computers. 

e Boy Scouts across the nation are using personal 
computers for help in earning the Computer 
merit badge. 

¢ Dr. Michael Lamb has adapted his personal com- 
puter for anesthesia monitoring during surgery. 

e Colossal Pictures Corporation used a personal 
computer to create the title sequences for The 
Black Stallion and One From The Heart. 

e Psychologist John McPhee developed a program 
to analyze Rorschach Inkblot Tests on his per- 
sonal computer. 

e The Sports Car Club of America, San Francisco 
office uses a PC personal computer to track race 
results instantly. 

e David Curtis turned his personal computer into a 
lie-detector and analysis machine. 

¢ One hobbyist creates personalized Christmas 
letters by using a word processor, cutting the 
time required in half. 

e A bar-code reader allows a hobbyist to rapidly 


input information concerning supermarket items 
purchased. A pantry inventory can easily be 
created. 

One thrifty personal computer owner devised a 
program to randomly match each person in his 
extended family for exchange of gifts. 

One family uses their system as a message board 
to store, word-process, and display messages to 
other family members. 

Traveling salesmen use their portable computers 
to maintain expense accounts. 

One hobbyist created a “drunkometer” program 
to evaluate residual cognitive function in those 
smashed by alcohol. 

A nighttime and vacation check-off program to 
remind the hobbyist that nights and vacations 
exist for a purpose and to ensure that all neces- 
sary duties have been taken care of could be a 
godsend to obsessive programmers. 

A citrus grower uses his personal computer to 
continuously monitor temperature and soil con- 
ditions to alert him of changes and automatically 
control heaters and sprinklers. 

An instrumentalist uses his personal computer to 
accompany him on the flute. 

A wrestling coach no longer tussles with the 
problem of pairing 500 boys by age and weight; 
he uses his personal computer. 

A personal computer owner about to marry 
created a database to map out chapel seating for 
100 wedding guests and table arrangements for 
220 lunch guests and to do tabulations on no- 
shows. He is also keeping a record of those who 
give gifts and what they send. 

Anew minister was given information concerning 
the personal and familial problems of his flock 
stored in a database created by the retiring 
minister. 

Chicago Alderman Lawrence Bloom keeps a 
database of 6,000 voters on his computer. Pre- 
cinct workers can make personalized calls and 
say “Alderman Bloom helped you get rid of that 
abandoned car. Now he needs your help.” 
Carter Scholz used his personal computer to 
compute the lengths of a set of tuned wind 
chimes. 


The Osvoz family of New York use their personal 
computer to maintain database of family medical 
information, including blood types, allergies, 
dates of checkups, poison antidotes, eyeglass 
prescriptions, insurance policies, checkup re- 
minders, height, and weight. 
Professionally-prepared programs are available 
to plan a vacation trip for you, given the starting 
point and the destination; miles, costs, routes, 
and itinerary can be computed automatically. 


Dave Adams, a businessman, uses his personal 
computer with a modem to access on-line airline 
schedules and make reservations. The Source 
and CompuServe, among other networks, offer 
this service. 

Automotive expense records, including the fol- 
lowing information, may be tracked using your 
personal computer: loan or lease payment rec- 
ords, accumulated gasoline costs, MPG average, 
maintenance and repair records, insurance 
records, depreciation, automotive tax deduct- 
ibles, and accumulated cost per mile to operate. 

Bill Strozier uses his personal computer to oper- 
ate a passive solar heating system in his home. 
The computer controls the opening and closing of 
movable partitions and shades and an air circula- 
tion system. Other personal computer owners 
have controlled active solar heating collectors, 
directed air or liquid to areas where it was 
needed, and analyzed the performance of the 
system. 

One hobbyist uses a program to organize his 
elaborate home workshop; he maintains a tool 
and equipment inventory and lists of parts and 
supplies, projects completed, and future projects 
(with tentative starting dates). 

Bird watcher Edward Mair uses a personal com- 
puter to store his lifetime, year, state, property, 
and feeder lists and for exchanging information 
with other birdwatchers across the nation via a 
network. 

Several executives, computer programmers, and 
writers can now do their work at home, rather 
than traveling to the office, thanks to personal 
computers linked with their company’s computer 
via modems. 
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Appendix 
Software Source Books 


The books and magazines listed below are the most popular 
guides to microcomputer software available for popular 
brands of home computers. For many of the applications 
discussed in this book, there is a professionally designed 
program available and listed in the guides below. 


The Addison-Wesley Book of Apple Software $19.95 
Addison-Wesley 
The Addison-Wesley Book of ATARI Software $19.95 
Addison-Wesley 
Big Blue Book for the Apple 
Scribner 
Big Blue Book for the ATARI 
Scribner 
Big Blue Book for the Commodore 
WIDL Video 
Big Blue Book for the IBM PC 
WIDL Video 
The Buyer's Guide to Software for the IBM PC 
Byte/McGraw-Hill 
Commodore Software Encyclopedia 
Howard Sams and Co. 
CP/M Software Finder $14.95 
Que Corporation 
IBM PC Expansion and Software Guide 
Que Corporation 


VanLoves Apple Ii/Ill Software Directory $24.95 
VanLoves 


PUBLISHER’S ADDRESSES 


Addison-Wesley Publishing Co. 
Jacob Way 
Reading, MA 01867 


Byte/McGraw-Hill 
1221 Avenue of the Americas 
New York, NY 10020 


Howard Sames & Co. 
4300 W. 63rd St. 
Indianapolis, IN 46268 


Que Corporation 
7960 Castleway Dr. 
Indianapolis, IN 46250 


Charles Scribner’s Sons 
597 Fifth Ave. 
New York, NY 10017 


WIDL Video 
5245 W. Diversey Ave. 
Chicago, IL 60639 


MICROCOMPUTER MANUFACTURERS 


Access Matrix Corp. 
2159 Bering Drive 
San Jose, CA 95131 


Aitos Computer Systems, 
2641 Orchard Park Way 
San Jose, CA 95134 


Albert Computers 

3170 Los Feliz Drive 

Unit C 

Thousand Oaks, CA 91362 


Apple Computer 
20525 Mariani Drive 
Cupertino, CA 95014 


Atari Products 
Box 50047 
San Jose. CA 95150 


Alspa Computer 
300 Harvey West Blvd 
Santa Cruz, CA 95060 


Casio, Inc. 
15 Gardner Rd. 
Fairfield. NU 07006 


Athena Computer 

31952 Camino Capistrano 
San Juan Capistrano, CA 
92675 


Coleco Industries 
945 Asvium Ave. 
Hartford, CT 06105 


Basis. Inc. 
5435 Scotts Valley Onve 
Scctts Valley, CA 95066 


Coiumbia Data Products 
8990 Route 108 
Columbia. MD 21045 


Canon USA 
One Canon Plaza 
Lake Success. NY 11042 
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Commodore Business Mach. 


1200 Wilson Drive 
West Chester, PA 19380 


Compaq Computer Corp. 
20333 FM 149 
Houston, TX 77070 


CompuPro 
Box 2355 
Oakland Airport, CA 94614 


Computer Devices. Inc. 
25 North Ave. 
Burlington, MA 01803 


Cromemco, inc. 

280 Bernado Ave. 

Box 7400 

Mountain View, CA 94039 


Digital Equipment Corp. 
2 Mount Royal Ave. 

Box 1008 

Maynard, MA 01752 


Docutel/Olivettl Corp. 
155 White Plains Rd. 
Tarrytown, NY 10591 


Durango Systens 
3003 North First St. 
San Jose, CA 95134 


Dynalogic Info-Tech Corp. 
8 Colonnade Road 
Ottawa, CANADA, K2E 7M6 


Eagle Computer, Inc. 
983 University Ave. 
Los Gatos, CA 95030 


Epson America 
3415 Kashiwa St. 
Torrance, CA 90505 


Formula International 
12603 Crenshaw Bivd. 
Hawthorne, CA 90250 


Franklin Computer Corp. 
2138 Route 38 
Cherry Hill, NJ 08002 


Fujitsu Microelectronics 


3320 Scott Blvd. 
Santa Clara, CA 95051 


238 


Gavilan Computer Corp. 


240 Hacienda Ave. 
Campbell. CA 95008 


Gifford Systems 
1922 Republic Ave. 
San Leandro. CA 94577 


Heath Company 
Benton Harbor, Mi 49022 


Hewlett-Packard 
1000 NE Circle Blvd. 
Corvallis, OR 97330 


Hitachi Sales Corp. 
West Artesia 
Compton, CA 90220 


Honeyweil, Inc. 
200 Smith St. 
Waltham. MA 02154 


IBC 
21592 Marilla St. 
Chatsworth, CA 91311 


IBM 
Box 1328 
Boca Raton. FL 33432 


IMS International 
2800 Lockheed Way 
Carson City, NV 89701 


Intertec Data Systems 
2300 Broad River Rd. 
Columbia, SC 29210 


Ithaca Intersystems 
200 E. Buffalo, Box 91 
Ithaca, NY 14851 


Kaypro Division 
PO Box N 
Del Mar, CA 92014 


LNW Research Corp. 
2620 Walnut 
Tustin, CA 92680 


Mattel Electronics 
5150 Rosecrans Ave 
Hawthorne, CA 90250 


Morrow Designs 
600 McCormick St. 
San Leandro, CA 94577 


Multitech Electronics 
195 West El Camino Real! 
Sunnyvale, CA 94086 


NEC Home Electronics 
1401 Estes Ave. 
Elk Grove Village, IL 60007 


NEC Information Syst. 
5 Militia Drive 
Lexington, MA 02173 


Netronics Research 
333 Litchfield Rd. 
New Milford. CT 06776 


North Star Computers 
4440 Catalina St. 
San Leanaro. CA 94577 


Osborne Computer Corp. 
26538 Danti Court 
Hayward, CA 94545 


Panasonic Co. 
One Panasonic Way 
Secaucus, NJ 07094 


Radio Shack 


One Tandy Center 
Fort Worth, TX 76102 


Sage Computer Tech. 


35 North Edison Way, Suite 4 


Reno, NV 89502 


Sanyo 
51 Joseph St. 
Moonachie, NJ 07074 


Seequa Computer Corp. 
209 West St. 
Annapolis, MD 21401 


Sharp Electronics 
10 Sharp Plaza 
Paramus, NJ 07652 


Sony 
Sony Drive 
Park Ridge, NJ 07656 


Sord Computer 
200 Park Ave 
New York, NY 10166 


Spectravideo 
39 W. 37th St. 
New York, NY 10018 


Sumicom Inc. 
17862 East 17 St. 
Tustin, CA 92680 


TeleVideo Systems 
1170 Morse Ave 
Sunnyvale, CA 94086 


Texas Instruments 
Box 53 
Lubbock, TX 79408 


Timex Computer 
Box 1700 
Waterbury, CT 06721 


Toshiba America 
2441 Michelle Dr. 
Tustin, CA 92680 


Unitronics 

401 Grand Ave. 
Suite 350 

Oakland, CA 94610 


Vector Graphic, Inc. 
500 North Ventu Park 
Rd. 

Thousand Oaks. CA 
91320- 2798 


Video Technology 
2633 Greenleaf Ave. 
Elk Grove, IL 60007 


Wang Laboratories 
One Industrial Ave. 
Lowell. MA 01851 


Xerox Corp. 

1341 West Mockingbird 
Lane 

Dallas, TX 75247 


Zenith Data Systems 
1000 North Milwaukee 
Ave 

Glenview, IL 60025 


Glossary 


address—The location in memory where a given 
binary bit or word of information is stored. 

alphanumeric — The set of punctuation, letters of 
the alphabet, and numerical characters used for 
computer input. 

analog/digital (A/D) conversion—An A/D 
converter measures incoming voltages and out- 
puts a corresponding digital number for each 
voltage. 

ASCII—The American Standard Code for Infor- 
mation Interchange. 

assembly language —A low level symbolic pro- 
gramming language that comes closest to pro- 
gramming a computer in its internal machine 
language. Instead, machine language code is 
represented by mneumonics. 


binary —The number system of base two, which 
has two symbols, 1 and 0, representing the on 
and off states of a circuit. 

bit —One binary digit. 

byte—An assembly of eight bits representing a 
computer word. The memory capacity of a com- 
puter is usually measured in terms of bytes. 


chip—An integrated circuit. 

compiler—A program that converts the program 
statements of a high-level language into machine 
codes for execution. 

CPU (Central Processing Unit)—The major op- 
erations center of the computer where decisions 
and calculations are made. 


data—Computer-coded information. 
data rate—The amount of information (data) 


transmitted through a communication line per 
unit of time. 

debug—Remove program errors (bugs) from a 
program. 

digital —A circuit that has only two states, on and 
off, and is usually represented by the binary 
number system. 

disk—A memory storage device that makes use of 
a magnetic disk. 

DOS—Disk operating system; allows the use of 
general commands to manipulate data stored on 
a disk. 


firmware —Software permanently stored in a 
computer using a read-only-memory (ROM) de- 
vice. 

floppy disk—See disk. 

flowchart —A diagram of the various steps to be 
taken by the computer in running a program. 


hardware—The manufactured equipment of a 
computer system, as opposed to the programs 


for a computer. 
hexadecimal—A base sixteen number system 


often used in programming in assembly lan- 
guage. 


input —Information (data) fed into the computer. 
input/output (I/O) devices—Peripheral 
hardware devices that communicate with or re- 
ceive communications from the computer. 
interface —A device that converts electronic sig- 
nals to enable two devices to communicate with 
each other; also called a port. 
interpreter—A program that accepts one state- 
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ment of a high-level language at a time, converts 
that statement to machine language, and pro- 
ceeds to the next statement. BASIC is a high- 
level language that is usually an interpreter 
rather thana compiler. 


keyboard—A series of switches, usually in the 
form of atypewriter keyboard, whichacomputer 
Operator uses to communicate with the com- 
puter. 


languages—The sets of words/commands that 
are understood by the computer and used in 
writing a program. 

loop—A portion of a program that is to be repeated 
(looped) several times. 


machine language —The internal low-level lan- 
guage of the computer. 

mainframe —Referring to the hardware of the 
central processing unit (CPU). 

memory—Data (information) stored for future 
reference by the computer in a series of bytes. 

microcomputer—A miniaturized small computer 
containing all the circuitry of a “minicomputer’’ 
on a single integrated circuit chip. 

microprocessor—The single integrated circuit 
chip that forms the basis of a computer (the 
CPU). 

mnemonic —An abbreviation or word that stands 
for another word or phrase. 

modem —A peripheral device that converts digital 


signals to audio and vice-versa. 
MPU—See CPU. 


octal—A base eight number system often used in 
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machine language programming. 
opcode —An operation code signifying a particular 
task to be done by the computer. 


parallel port —A data communication channel that 
uses one wire for each bit in a single byte. 

peripherals—Input/output devices such as 
printers, mass storage devices, and terminals. 

program—A set of instructions for accomplishing 
a task that the computer understands. 


RAM (random access memory)—Memory de- 
vices from which data can be procured or in 
which data can be stored by the computer. 

ROM (read only memory)—Memory devices 
from which data may be procured only; the 
memory contents may not be changed. 

RS232—A standard form for serial computer in- 
terfaces. 


serial communication—A method of data com- 
munication in which bits of information are sent 
consecutively through one wire. 

software —Computer programs, instructions, and 
languages. 

statement—A single computer instruction. 

subroutine —A smaller program (routine) within a 
larger program. 


terminal—An input/output device using a 
keyboard and video or printer display. 

TVT—A television typewriter, or computer termi- 
nal. 


word—A basic unit of computer memory usually 
expressed in terms of a byte. 


Index 
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Accounting systems, business, 67 

Accounting, personal, 55 

Activity ratios, 37, 38 

A/C Voltage Divider Program, 119 

Advantages of computers in educa- 
tion, 125 

Adventure games, 157, 184 

Advisor, game, 183 

Air Conditioning Program, 111 

Alarm systems, 201 

Amateur radio, 151 

Anagram Creator Program, 180 

Analog to digital converter, 207 

Analysis, statistical, 87 

Annuities, 54 

Answering machine, 12 

Answering service, 60 

Antenna design, 118 

Aphorism Generator Program, 142 

Applications, futuristic, 211 

Applications, miscellaneous 236 

Appraisal tabulator, 61 

Aquarium maintenance, 156 

Artistic patterns, 103 

Arts, musical, 142 

Arts, verbal, 141 

Arts, visual, 135 

Astrology, 155 

Astronomy, 152 


Astronomy Demo Program, 152 
Aviation, 112 


B 
Banking at home, 59 
Barometric conditions, 106 
Biorhythms, 155 
Black Sheep game, 159 
Blood Alcohol Content Program, 20 
Board display, 183 
Board games, 158 
Bonds, 31, 54, 
Bookkeeper, 183 
Books, personalized, 61 
Bowling league bookkeeping, 61 
Brainstorming, 232 
Breakeven analysis, 66 
Bridge-it game, 160 
Business accounting system, 67 


C 

Calculation of the Number of Days 

BetweenTwoDates Program, 73 
Calculations, business, 67 
Calculator, 79 
Calculus, computer, 98 
Capital equipment investment, 71 
Car, trading in, 14 
Card Shuffling Routine, 195 
Car maintenance, 21 


Carpenters’ helper, 21 

Cash flows, 64 

Categorizer Program, 9 
Categorizer Subroutine, 9 
Categorizing Information, 9 
Change distribution, 34 
Chemical engineering, 123 
Chemistry, 113 

Chess, 189 

Chess-related programs, 194 
Civil engineering, 123 

Climate control, 201 

Clock, 20 

Collections, 151 

Collection service, 61 

Company growth rates, 39 
Composition, music, 143 
Compuserve subject index, 214 
Computer assisted instruction, 127 
Computer-intelligence games, 182 
Contests, 235 

Contract preparation, 71 
Control, house, 201 

Control systems, use of, 204 
Countdown game, 168 

Coupon file, 19 

Critical path analysis, 13 

Cross Capture game, 161 
Crossword poetry, 137 

Curve fit, 64 
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Customer file management, 69 


D 

Daily Interest Savings Program, 56 

Database management system uses, 
29 

Database Program, 24 

Databases, 23, 221 

Database searching, 36 

Dating service, 60 

Day of the Week Program, 18 

Days between two dates, 72 

Dealers, dedicated hardware, 204 

Dealers, household control devices, 
203 

Dealers, robots, 209 

Decision maker, 13 

Decision making in business, 65 

Depreciation calculations, 53 

Depreciation Method Comparison 
Program, 54 

Device controller, external, 205 

Dialer, 12 

Distributions, statistical, 86 

Diving, scuba, 155 

Drawing, perspective, 139 

Drawing, programs, 184 

Drinks, 11, 20 


E 
Editing, 60 
Educational applications, 125 
Educational programs, 61 
Electric Cost Analysis Program, 111 
Electrical engineering, 114 
Electronic Memorandum Program, 2 
Employment agency, 60 
Energy consumption, 15 
Energy efficiency computation, 107 
Engineering applications, 114 
Equation of a line, 97 
Equations, simultaneous, 94 
Exercises, 15 
Experimental applications, 164 
External device controller, 205 


F 
Fields of data, 23 
Films, animated, 150 
Filter design, 115 
Filters, formulae for, 115 
Finance, 31 
Financial databases, 45 
Financial formulae, 46 
Financial ratio analysis, 36 
Financing requirements, 66 
Finder's fees, 60 
Fishing, 154 
Food shopping aid, 19 
Formulae, financial, 46 
Formulae, loan, 53 
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Formulae for filters, 115 
Fundamental analysis, 32 
Future value of an investment, 44 


G 
Gambling, 60, 154 
Games, 157 
Games, mathematical, 101 
Gardening, 153 
Gas Guzzler Program, 14 
Geneological storehouse, 156 
General CAI Program, 127 
Greeting card list, 12 
Greeting card producer, 235 
Growth Rate Calculator Program, 40 


H 
Handicapped, aid for, 231 
Handwriting analysis, 235 
Health, personal, 15 
Hexpawn game, 166 
History, 229 
Hobbies, 149 
Home banking, 59 
Home location, 13 
Home planning, 19 
Home swapping, 60 
Hot game, 160 
House Heating Program, 109 
Household control devices, 203 
Humanities and computers, 229 


| 
Income tax, 57 
Index to library, 5 
Indexing, 60 
Inflation rate, 44 
Information utilities, 222 
Integral evaluation, 95 
Interest calculations, 47 
Internal Rate of Return Program, 64 
Inventors Idea Stimulator Program, 
233 
Inventory control, 66 
Inventory management, 71 
Inventory of possessions, 17 
Investment analysis, 44 
Investment applications, 39 
Investment decisions, 31 
Investments, 31 
Invitation list, 12 
Itinerary assistant, 11 


J 
Jam game, 159 


K 
Kaleidoscope programs, 184 
Keywords, 2 
Kitchen inventory, 17 


L 

Language, 229 

Letters, business, 72 

Leverage ratios, 37, 38 

Library index, 5 

Life Expectancy Calculation Program, 
21 

Life game, 102 

Line Equation Calculator Program, 97 

Liquidity ratios, 37, 38 

Literature, 230 

Literature, index to, 18 

Loan Amortization Program, 50 

Loan formulae, 53 

Loans, 49 

Logic circuit analysis, 120 

Logic Circuit Analysis Program, 121 

Logic games, 159 

Low-Pass Filter Design Program, 
115 

Lunar Landing Simulation Program, 


129 
M 
Machine design, 123 
Magic, 182 
Mailing list, 69 


Mailing lists, 60 

Manufacturers, microcomputer, 239 

Marine navigation, 112 

Marked Square Game, 168 

Mathematical functions, plotting, 95 

Mathematical functions in the arts, 135 

Mathematics, 91 

Matrix routines, 226 

Mechanics’ helper, 21 

Medical calculations, 113 

Message system, 201 

Microcomputer manufacturers, 239 

Mill game, 168 

Minimum investment, 48 

Model building, 155 

Modems, 12, 213 

Money-making applications, 59 

Mortgages, 48 

Mortgage Schedule Program, 49 

Moving Average Calculator Program, 
33 

Multiplication Drill Program, 132 

Multipurpose programs, 225 

Music, 204 

Music education, 142 

Music Program, 145 


N 
Navigation, 112 
Network Design Program, 116 
Networking, 213 
Networks, local, 218 
Networks, major, 214 
Neutron game, 166 


Nim Program, 163 
Nim variations, 165 
Nutrition 15 


0 
Order processing, 69 


P 
Pascal's art, 103 
Patterns, textile, 139 
Payroll, 71 
People matching, 234 
Personal accounts receivable/ 
payable, 55 
Personality Test Program, 197 
Personal reference source, 1 
PERT, 13 
Photography, 149 
Physics, 114 
Pi Calculation Program, 100 
Planning, house, 19 
Plotter Program, 95 
Points, 52 
Polynomial Evaluation Program, 92 
Portfolio beta, 44 
Portfolio management, 32 


Predicting results of sporting events, 


99 
Price indexes, 34 
Price/volume trace, 34 
Private information 20 
Probabilities, 102 


Professional practice management, 


71 
Professions, 75 
Profitability ratios, 37, 39 
Programming challenges, 99 
Psychic programs, 155 
Pulse Rate Program, 16 


Q 
Quizzes, 179 


R 
Radio, amateur, 151 
Raffle tickets, 21 
Railroading, model, 155 
Random Access Sample Routine, 5 
Random art patterns, 136 
Rate of change, 34 
Rating calculations, 17 
Ratio analysis, 36 
Ratio relationships, 34 
Ratios, 37 
Real estate, 61 
Real Estate Evaluation Program, 62 
Recipe Calculator Program, 10 
Recipe index, 10 
Record keeping, 231 
Recreational vehicles, 155 


Recreations, computer, 189 

Recreations, mathematical, 99 

Reference information, 1 

Reference Table Program, 74 

Rental locator, 60 

Resumes, 60 

Retirement planning, 59 

RL Equivalent Impedance Program, 
119 

Robots, personal, 209 

Robotwar || Program, 186 

RPN calculator, 79 

RPN Calculator program, 81 


S 

Sales, 69 

Scheduling, 232 

Schematics for filters, 115 

Securities, 31 

Services, 60 

Shorthand translator, 16 

Short-term insolvency, 43 

Simple Song Transformation Pro- 
gram, 148 

Simulation games, 184 

Simulations, educational 128 

Simulations, large scale, 131 

Simultaneous Equation Solver Pro- 
gram, 94 

Software, choosing for educational 
use, 126 

Software source books, 239 

Sorting routines, 227 

Source index, 233 

Source subject index, 216 

Sourcebooks, software, 239 

Specialized Word-Processor Pro- 
gram, 7 

Speed Reading Program, 133 

Sports, 153 

Sports predictions, 60 

Spreadsheets, electronic, 65 

Star Fight Program, 169 

Statistical Analysis Program, 87 

Statistics, 85 

Stock alpha and beta, 43 

Stock market, 59 

Stock Option Analysis Program, 41 

Stocks, 31 

Story writer, 181 

Strategy games, 158 

String utility routines, 226 

Subject index, the Source, 216 

Subject interest, Compuserve, 214 

Sundial design, 107 

Sundial Design Program, 108 

Sunrise and sunset, 155 

Supermarket comparison, 61 

Surveying calculations, 113 

Synthesizers, computer controlled, 
149 


Systems, small business, 61 


T 

Tailors calculations, 232 

Tax planning, 58 

Teaching program, 131 

Technical analysis, 32 

Telephone Call Timer Program, 11 

Telephone code, 232 

Telephone numbers, local networks, 
219 

Temperature Humidity Index Pro- 
gram, 107 

Terminal programs 214 

Textile Generator Program, 129 

Three Dimensional Plotter Program, 
135 

Tic-tac-toe games, 162 

Tides, 155 

Time calculations, 73 

Time Difference Program, 73 

Time management system, 13 

Timer, 20 

Translations, 229 

Trend line analysis, 35 

Tricolor game, 158 

True Annual Interest Rate Program, 
47 

Tuknanavuhpi game, 162 

Tutor, computer, 128 

Typesetting, 60 

Typing speed, 231 


U 
Universal Decision Making Program, 
13 
Use of computers in the professions, 
75 
Utility programs, 225 


1] 
Vector Addition Program, 92 
Venus, 152 
Video games, 157, 188 
Vocal interface, 201 
Voice control, 201, 202 


W 
Warrants, 54 
Weather forecasting, 105 
Weight, 15 
William Tell Program, 196 
Wind Chill Calculator Program, 107 
Word games, 179 
Word processing 6, 61 
World Series Predictor Program, 99 
Writing, 230 


Y 


Yagi Antenna Design Program, 118 
Young children, programs for, 183 
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1001 Things to Do 
with Your Commodore 64 


If you are intrigued with the possibilities of the programs included in 7001 Things to Do with Your 
Commodore 64 (TAB Book No. 1836), you should definitely consider having the ready-to-run disk 
containing the software applications. This software is guaranteed free of manufacturer’s defects. (If 
you have any problems, return the disk within 30 days, and we'll send you a new one.) Not only will 
you Save the time and effort of typing the programs, the disk eliminates the possibility of errors that 
can prevent the programs from functioning. Interested? 


Available on disk at $24.95 for each disk plus $1.00 each shipping and handling. 


acll 


I’m interested. Send me: 


disk for Commodore 64 (6418S) 

TAB BOOKS catalog 

______ _Check/Money Order enclosed for $24.95 

plus $1.00 shipping and handling for each disk ordered. 


VISA MasterCard 
Account No, ____——sSsSsSS—SFSFSSSSSSSSSS—S—COFCsOFSFsssS—COFSCS<( C *iExpires 
Name 
Address 
City «State LZ 
Signature 


Mail To: TAB BOOKS INC. 
P.0. Box 40 
Blue Ridge Summit, PA 17214 


Or order today toll free 1-800-233-1128 


PA add 6% sales tax. Orders outside U.S. must be prepaid with international money orders in U.S. dollars. 
TAB 1836 
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1001 tne to Do with Your Commodore 64 


By Mark R. Sawusch and Tan A. Summers 


TAB's all-time bestselling computer idea book . . now in a brand new, ~ 


revised edition for the Commodore 64! 
“An amazing collection of practical ideas and, programs. . . the book is 


really overwhelming . . . enough ideas to keep you and your computer 
a for 01100100 binary years! a 80 Microcomputing 


. amarvelous guide to personal computer t use . an indispensable 
erates that will open up new horizons for you and your computer.” 


Mother Earth News 


. agood source of materiatfor "programmers who write games, orwho 
ine variety, or who run out of ideas.” Creative Computing 


a7 733 


ms i Here’s a gold mine of exciting ideas . .. more than 1000 ways you canuse 
er 9! your Commodore 64 for applications ranging from household recordkeeping 


iat game playing and hobby use to scientific and educational applications. 
a Best of all, this i is a book that not only includes a treasure trove of ideas for 
getting more from your computer . .. it provides you with actual programs, 
printouts, flowcharts, diagrams, and step-by-step instructions for using your 
micro in practical and just-for-fun ways. 

You can use your micro to forecast the weather . . . to help aa 
youngsters make better grades i inschool...to calculate camera settings. . 


ments .. . to add excitement to your model railroading hobby .. . to translate 
shorthand notes... to handle practically « every kind of business recordkeeping 
chore... to solve electronics problems. . . and, of course, to play games! In 


; fact, you TT find more ideas and pracrains. for using your microcomputer than» 
7 you'd ever have thought possible . . . even ways: to make money with your 
\ a 


‘computer! . 
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Send for FREE TAB Catalog describing over 1200 current titles i in print. 


: 
: 


ISBN 0-8&30b-1436b-4 
90000 


TAB BOOKS Inc. 


Baer Blue Ridge Summit, Pa. 17214. 
9 "780830'618361 | ‘PRICES HIGHER IN CANADA ‘ 


and budgeting to investment analysis and business management—from — 


, Mark R. Saw Uschit Is an Telesales! microcomputer Pregame wets 
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~» ‘control household appliances or security systems . . . to manage your fatieted eae 
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